Writeln забыла перед скобками написать.
На Pascal?
program hello_world;
Var a,b,c:integer;
begin
Readln(a,b,c);
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.
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.