Нужно решить на 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,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

а)домащняя библиотека

в виде таблицы

1.номер

2.название

3.автор

4.полка

б)1.номер

2.слово

3.вопрос

4.род

5.число

6.падеж

в)1.номер

2.имя

3.фамилия

4.отчество

5.телефон

6.адрес

7.дата рождения

8.хобби