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

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.

Comments

спасибо