Question

напишите в паскале программу по этому алгоритму

Answer 1

var
    a, b, c, d: integer;

begin
    Readln(a, b, c);
    if a > b then
        if a > c then d := a
        else d := c
    else
        if b > c then d := b
        else d := c;
    
    Writeln(d);
end.