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