С

требуется написать программу, которая определяет и выводит сумму только положительных из трёх данных чисел a, b и c.
формат входных данных

входной поток содержит три целых числа в отдельных строках a, b и c. (a, b, c не превышают 1000 по модулю)
формат выходных данных
выведите одно число — искомую сумму.

ответ:

var a,b,c,sum: integer;

begin

writeln ('vvod chisel');

readln(a,b,c);

sum: =0;

if a →0 then

sum: =sum +a;

if b→0 then

sum: =sum+b;

if c→ 0 then

sum: =sum +c;

readln (sum);

end.

карандаш — инструмент в виде стержня, изготавливаемого из пишущего материала (угля, графита, сухих красок и т. п.) применяемый для письма, рисования, черчения.

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.