Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел

var a:array[1..5] of real;i:integer;min,max:real;beginfor i:=1 to 5 dobeginwrite ('Введите ',i,' число: ');readln (a[i]);end;max:=a[1];min:=a[1];for i:=1 to 5 dobeginif a[i]>max then max:=a[i];if a[i]<min then min:=a[i];end;WRITELN;writeln ('Максимальное = ',max);writeln ('Минимальное = ',min);end.