Нужно решить на 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

shift+ ctrl, эти клавиши шифт и контрл расположены в 2 сторонах клавиатуры, слево и справа, имеют специфические названия левый и правый шифт и контрл, особенности заключаются в том что возможна а компьютетре или ноутбуке есть возможность переключения языков шифт и альт, 

название клавиши ереключения регистров capslock , так же есть возможность зажатой левой шифт и любая буква

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.