Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.(Паскаль АВС)

Ответ учителя по предмету Информатика

Var

A,B,C,D,E,M:real;

Begin

WriteLn(‘Введите 5 чисел’);

Read(A,B,C,D,E);

M:=A;

if M<B then M:=B;

if M<C then M:=C;

if M<D then M:=D;

if M<E then M:=E;

if A>B then A:=B;

if A>C then A:=C;

if A>D then A:=D;

if A>E then A:=E;

Write(A,’ ‘,M)

End.