Помоготи!!!!! Инфарматика!!!!!

1)

program raf105;

var a,b,c,d,sum:integer;

begin

write('Введите четырёхзначное число: ');

readln(sum);

a:= sum div 1000;

b:= (sum-a*1000) div 100;

c:= (sum-a*1000-b*100) div 10;

d:= (sum-a*1000-b*100-c*10) div 1;

sum:= (a+c+d)*b;

writeln('(',a,'+',c,'+',d,')*',b,'= ',sum);

end.

2)

program raf105;

var R,h,S:real;

const P=3.14;

begin

write('Введите радиус цилиндра: ');

readln(R);

write('Введите вышину цилиндра: ');

readln(h);

S:= 2*P*R*h;

writeln('Площадь боковой стороны цилиндра: ',S);

end.

Написано на языке PascalABC.NET