Вычислить значение выражения - Pascal ABC (12993)

Формулировка задачи:

Даны натуральное число n, действительные числа a1, ... , an. Получить:

Решение задачи: «Вычислить значение выражения»

Листинг программы

var n,i:integer;
    a,min1,min2:real;
begin
write('Количество чисел n=');
readln(n);
writeln('Введите ',n,' действительных чисел');
for i:=1 to n do
 begin
  readln(a);
  if i=1 then
   begin
    min1:=a;
    min2:=a*a;
   end
  else if a<min1 then min1:=a
  else if a*a<min2 then min2:=a*a;
 end;
writeln('Минимальное a=',min1:0:2);
writeln('Минимальное a^2=',min2:0:2);
writeln('min1^2-min2=',sqr(min1)-min2:0:2);
end.

Объяснение кода листинга программы

Создаются переменные n, i, a, min1 и min2 типа integer и real соответственно.
Выводится сообщение Количество чисел n= и считывается значение переменной n.
Выводится сообщение Введите,n,действительных чисел.
В цикле for i:=1 до n do:
- Считывается значение переменной a.
- Если i=1, то присваиваются значения min1=a и min2=a*a.
- Иначе, если a меньше min1, то присваивается min1=a.
- Иначе, если aa меньше min2, то присваивается min2=aa.
Выводится сообщение Минимальное a=, и выводится значение min1.
Выводится сообщение Минимальное a^2=, и выводится значение min2.
Выводится сообщение min1^2-min2=, и вычисляется и выводится значение sqr(min1)-min2.