Question

ПРОГРАММИСТЫ КО МНЕ​

Answer 1

а ты балы даш? если нет то не напишу а если да то напишу
в комменты посмотри
program a1;
var a, b, c, S: real;
begin
write('введите a = ');
read(a);
write('введите b = ');
read(b);
write('введите c = ');
resd(c);
S:=a*b*c;
writeln('S = ',S);
end.

Answer 2

program a1;
var a, b, c, S: real;
begin
write('введите a = ');
read(a);
write('введите b = ');
read(b);
write('введите c = ');
resd(c);
S:=a*b*c;
writeln('S = ',S);
end.

Answer 3

вот