Решить в паскале. так чтобы её можно было ввести и она пошла(а то ни 1 не идет,которую мне здесь написали,то ли я не так вожу то ли ещё что.. ) ввести 3 числа.выбрать и напечатать наибольшее

Var a,b,c: integer;
begin
readln (a,b,c);
if (a>b) and (a>c) then writeln (a);
if (b>a) and (b>c) then writeln (b);
if (c>a) and (c>b) then writeln (c);
end.