Определите программу ввода значений 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.