Можно и один очень нужно

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.

классификации на : числа бывают: натуральными(1,2,3); целыми(2,   -5); дробными(6,73). на : предложения бывают: простыми, сложными: сложноподчинёнными, сложносочинёнными, сложными с разными связи, сложные бессоюзные.

если текст распознан, то да. т. е. наобходима программа разспознования fine reader

var a: array[1..10] of integer;

i,s: integer;

begin

  randomize;

  for i: = 1 to 10 do begin

      a[i]: = random(100);

      s: =s+a[i];

  end;

  writeln(s);

end.

var a: array[1..10] of integer;

i,mk,pk,s,p: integer;

begin

  randomize;

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: = random(30+10)-10;

      if a[i]> =0 then begin

          pk: =pk+1;

          s: =s+a[i];

      end

      else begin

          mk: =mk+1;

          p: =p*a[i];

      end;

  end;

  writeln(pk,s,mk,p);

end.