3. Напишите программу по блок-схеме.
a, b, c
)
Да
a >b и
a> с
Нет
Сообщить а
Да
Нет
b>с
Сообщить Ь
Сообщить с

pascal

Объяснение:

var

 a, b, c: integer;

begin

 Write('Введите a,b и c : ');

 ReadLn(a, b, c);

 if (a > b) and (a > c) then WriteLn(a)

 else if b > c then WriteLn(b)

     else WriteLn(c);

end.