Решить с помощью цилка с предусловием :
A=5+10+15+20+...+N

Вероятность 0,08 показывает, что площадь квадрата составляет 0,08 площади всего листа. площадь листа равна 10 см х 20 см = 200 см². значит, площадь квадрата равна 200 х 0,08 = 16 см². зная площадь квадрата, можем найти длину его стороны: √16 = 4 см. ответ: длина стороны нарисованного квадрата 4 см.

Начало сам напишешь) тут начало ; a: =0; for i: =1 to n/5 do a: =a+i*5; write(a); end.

Можна все удалить і збросить заводські настройки 
зажміть кнопку питания і повишитель звука 

Program pr;
var a:array [1..n] of integer;
n, i, c: integer;
begin
c := 1
n := random(50);
for i := 1 to n do
begin
readln(a[i]);
c := c * a[i];
end;
writeln(c);
end.