Составить программу вычисления выражения x=(a+b)/c

Program qq;
var x,a,b,c:real;
begin
writeln ('введите a,b,c через пробел');
readln(a,b,c);
x:=(a+b)/c;
writeln('x=',x);
end.