ПОМОГИТЕ!!!! ИНФАРМАТИКА!!!!

1)

program raf105;

var a,b,c,sum:integer;

begin

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

readln(sum);

a:= sum div 100;

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

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

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

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

end.

2)

program raf105;

var a,b:real;

begin

a:= round(9000/(4+3)*3);

b:= round(9000/(4+3)*4);

writeln('Первый рабочий заслужил: ',a,' руб.');

writeln('2-ой рабочий заслужил: ',b,' руб.');

end.

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