с информатикой!
Нужно написать программу в PascalABC.
Сябки заранее =)

program svs;

var

a,b:integer;

begin

a:= 1;

b:= 2;

while a > 0 do

begin

b:= b - 2;

a:= a + b;

end;

b:= a + b;

writeln(b);

writeln(a);

end.

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так

1951год.-введен в эксплуатацию первый отечественный компьютер мэсм с хранимой программой, созданный под руководством академика с. а. лебедева.