Ответ:

program schet;

var a,b,c,x: integer;

begin

write('a = ');

readln (a);

write('b = ');

readln (b);

write('c = ');

readln (c);

writeln;

x:=a+b+c;

a:=a*5;

b:=a+b;

c:=15;

b:=b*3;

writeln ('a = ',a);

writeln ('b = ',b);

writeln ('c = ',c);

writeln ('x = ',x)

end.

Объяснение:

Вводим переменные

Считаем переменные

Выводим переменные