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('Второй рабочий заслужил: ',b,' руб.');
end.
Написано на языке PascalABC.NET