Малыш и Карлсон живут в прямоугольной комнате AxB. Как им подсчитать, сколько понадобится квадратных ковриков со стороной С, чтобы полностью покрыть пол комнаты (ни Малыш, ни Карлсон не умеют ни делить, ни умножать) — QBasic(Бейсик)

DIM zad1
CLS        
INPUT "Vvedit wyrynu komnaty:", a
INPUT "Vvedit dlinu komnaty:", b    
INPUT "Vvedit rozmir storony kovryku:", c   
s = a * b
s1 = s / 2
n = s1 / c 
PRINT "potribno"; n; "kovrykiv"
END

i=0;
j=0;
WHILE i < b
i=i+c
j=j+1
WEND
i=0;
k=0
WHILE i < a
i=i+c
k=k+j
WEND
PRINT k

CLS
INPUT "Введите шаирину и длинну комнаты, а так же сторону коврика"; a, b, c
s = a
sc = c
FOR i = 1 TO b - 1
  s = s + a
NEXT i
FOR i = 1 TO c - 1
  sc = sc + c
NEXT i
p = s - sc
WHILE p > sc
  p = p - sc
  w = w + 1
WEND
PRINT
IF s MOD sc = 0 THEN PRINT "Вам понадобится"; w + 2; "коврика(ов)" ELSE PRINT "Вам понадобится"; w + 3; "коврика(ов)"
END