Var
x, i: integer;
begin
x := 0;
i := 0;
repeat
i := i + 1;
x := x + random(0, 150000);
until x >= 1700000;
write(i);
end.
Первый вариант - функциональный, второй - процедурный.
Рекомендую функциональный, потому что процедурный вариант жуткий щиткод и кринж, да и питон сам по себе язык функциональный. Удачи.
Не знаю, что она на самом деле должна делать, но:
с^2 неправильно, для возведения в квадрат надо sqr (c)
И в этих четырех строках
<span>S:=S+(a/b+c^2)</span>
<span>a:=a+3</span>
<span>b:=1</span>
<span>c:=c+1</span>
<span>нет точки с запятой.</span>