Выполнить алгоритм и найти значение переменных.

min і max нужно присвоить а[1].

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.

файл с исходным текстом программы на паскале должен иметь расширение pas.

строка меню, строка заголовка, закрывающая кнопка, сворачивающая кнопка, разворачивающая кнопка, полосы прокрутки, рамка окна, рабочая область.