Нужно решить на qbasik найти сумму а=2,6, до тех пор пока она не превысит 500

cls

n = 500

k = 4

x = 2

s = 0

do while s < n

s = s + x

print x, s

x = x + k

loop

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.

-всех планов

-планов , на которых ровно 4 хода

- планов на которых есть ход к коту

-планов на которых не 4 хода

-планов на которых нет ходов к коту

-планов на которых 4 хода и есть ход к коту

- планов на которых 4 хода и нет ходов к коту

на пересечении круга и квадрата - мауси и котауси

в квадрате - джек

в круге - ник

в прямоугольнике - пухлик

ответ на вопрос: план джека