Aillianna

Verified answer

Var
    a, b, c: integer;

begin
    writeln('Вводим числа');
    readln(a, b, c);
    
    if a < b then a := b;
    if a < c then a := c;
    writeln('Max = ', a);
end.