Writeln забыла перед скобками написать.

На Pascal?

program hello_world;

Var a,b,c:integer;

begin

Readln(a,b,c);

begin

If (a>b) and (a>c) then write (a);

If (b>c) and (b>a) then write (b);

If (c>b) and (c>a) then write (c);

end;

End.