Составьте программу, которая округляет вещественное число x. на языке pascal пример ввода: 8,56 пример ввода: 9

Var x:real; a:integer;
begin
write('x = ');
readln(x);
a:=round(x);
writeln(a);
end.

Пример:
x = 8.56
9