Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
В начале программы надо написать Randomize;
вместо 3-ех while используй один for, и 3 переменные которые запоминают числа.
вот часть программы
for i:=1 to 20 do begin
if M[i]>0 then k:=k+1;
if M[i]<0 then t:=t+1;
if M[i]=0 then n:=n+1;
end;
writeln(k,'Положительные');
writeln(t,'отрицательные');
writeln(n,'Нулевые');
Ширина ячейки мала для отображения числа, необходимо увеличить ширину ячейки
var
n, i, j, AskTheMountains: longint;
a: array of longint;
fl: Text;
begin
assign(fl, 'input.txt');
reset(fl);
readln(fl, n);
SetLength(a, n);
for i := 0 to (n - 1) do
readln(fl, a[i]);
close(fl);
assign(fl, 'output.txt');
rewrite(fl);
for i := 0 to n - 1 do
for j := i to n - 1 do
if (a[i] > a[j]) then
begin
AskTheMountains := a[i];
a[i] := a[j];
a[j] := AskTheMountains;
end;
for i := 0 to n-1 do
writeln(fl, a[i]);
close(fl);
<span>end.</span>