var
n:integer;
begin
write('Сколько человек? ');
readln(n);
var a:=ArrRandom(n,150,190).Print;
end.
Просто подставляешь переменные в формулы и решаешь
После do точку с запятой ставить не надо
uses crt;
var
i, j: integer;
begin
randomize;
for i := 1 to 20 do
begin
writeln(i);
textcolor(green);
for j := 1 to 20 do
write(random(50000));
textcolor(yellow);
for j := 1 to 20 do
write(random(50000));
textcolor(red);
for j := 1 to 20 do
write(random(50000));
end;
end.
Readln(n);
for i:=2 to n do
if n mod i=0 then
writeln(i);
break;
end.
Есле я неошибаюсь то может из 200 из них 100