Напишите первые 70 чисел 31-ной системы исчисления

Program a1; // a1 - название твоей проги, с задают название программы.
var a,b,c, s : integer; // a, b, c, s - переменные. var — ключевое слово, после этого слова объявляют переменные.
begin // begin и end — это как скобки, в которых ты решаешь выражение
readln(a);
readln(b);
readln(c);
// readln() — оператор, с которого можно отправлять данные в компьютер. Есть и такая fорма записи. read(). Отличие read от readln в том, если использует второй вариант readln(), то каретка( _) переносится на новую строку.
s := b*2-4*a*a; // присваиваем значения переменных в переменную s.
if (s > 0) then // конструкция if else позволяет проверять условия, если это равно или не равно, то делай компьютер другое...
 writeln(' Число положительное');
else if (s  <  0) then
 writeln(' Число отрицательное');
// writeln() выводит инfу на экран.
end.

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Дополните до ста! ***');
  Writeln('Вам будут предлагаться числа, которые нужно дополнять до 100');
  Writeln('Для завершения работы введите 0');
  var a,q,k,m:integer;
  k:=0; m:=0;
  repeat
    q:=Random(1,99);
    Print(q); Read(a);
    if a=0 then break;
    if a=100-q then begin
      m+=1;
      Writeln('Это правильный ответ')
      end
    else Writeln('Это неправильный ответ, ',100-q);
    k+=1;
  until false;
  Writeln('Задано вопросов- ',k,', верных ответов- ',m,' (',100*m/k:0:1,'%)')
end.

Пример
*** Дополните до ста! ***
Вам будут предлагаться числа, которые нужно дополнять до 100
Для завершения работы введите 0
80 20
Это правильный ответ
5 95
Это правильный ответ
51 49
Это правильный ответ
4 95
Это неправильный ответ, 96
90 10
Это правильный ответ
11 0
Задано вопросов- 5, верных ответов- 4 (80.0%)