Question

определите программу ввода значений A,B,C в одной строке и выведите результаты выражения A*(B/3.14)+(с*2) в отдельной строке

Answer 1

program al;
var a, b, c:integer;
rezult:
real;
begin
write(' a = ');
read( a );
write('b=');
read(b);
write('c=');
read(c);
rezult:= a*(b/3.14)+c*2;
writeln('rezultat=', rezult);
readln;
end.