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

Большое спасибо

VarA,B,C,D,E,M:real;BeginWriteLn('Введите 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.