Составьте программу которая находит махимальное из четырёх введенных с клавиатуры чисел a, b, c, d и выводит его на экран

Question

Таисия

21 сентября, 08:26

+3

Ответы (1)

Знаете ответ?

Греция · Answer 1

Var

a, b, c, d: integer;

begin

readln (a, b, c, d) ;

if a < b then a : = b;

if a < c then a : = c;

if a < d then a : = d;

writeln (a) ;

end.