Определите программу ввода значений A,B,C в одной строке и выведите результаты выражения A*(B/3.14)+(с*2) в отдельной строке
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.
Оцени ответ
