Написать программу на паскале следующего примера a+b*b/c

Var   a, b, c : real; begin   readln(a, b, c);   writeln(a+b*b/c); end.

Var
a,b,c:integer; x:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
x:=a+b*b/c;
write('X=',x);
end.