Составить алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 5 единицам.

Const n=20;
var x,y : array[1..n] of integer;
   i,a,b,c : integer; f:real;
begin
Randomize;
 writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=random(101)-50;
  write(x[i],' ');
 end;
 writeln;
a:=0; b:=0; c:=0;
for i:=1 to n do
 begin
 if x[i]<0 then a:=a+x[i];
 if x[i] mod 2 = 0 then b:=b+1;
 if (c=0)and(x[i]>0) then c:=i;
 end;
writeln('A=',a,'  B=',b,'  C=',c);
f:=c+((a+b)/(10-c+a));
writeln('F=',f:5:2);
end.

Пример:
Исходный массив:
10 -37 1 31 -22 45 3 32 -2 48 -19 -48 39 22 -39 -29 -49 8 -16 22
 A=-261 B=10 C=1
F= 2.00

Вот оттестированный мой вариант программы. Тестировал на числах от 1 до 6. Писать начал чуть раньше Антагониста, но он оказался шустрее :))

//PascalABC
//NaaMan
//Программа расчитана ТОЛЬКО на факториалы
//Проверки ошибочного ввода НЕТ
var n, result, i : real;
begin
    write('Введите факториал > ');
    readln(n);
    if (n = 1) then
        result := 1
    else begin
        i := 2;
        while n <> 1 do begin
            n := n / i;
            result := i;
            i := i + 1;
        end;
    end;
    writeln('Число ', result);
end.