Выпишите алфавит римской системы счисления. укажите цифры в порядке возрастания их значений. например, для десятичной системы ответ был бы “0123456789”
алфавит подряд без пробелов и иных разделителей:

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

var

  i,s: longint;

begin

  for i: =20 to 60 do if i mod 5=0 then inc(s,i);

writeln(s);

end.

квадрат вписан в круг при условии что r*2(диаметр)> диагонали квадрата 

на qbasic

? "введите 2 числа - радиус круга и сторону квадрата соответсвенно"

input a; b

c=a*2   диаметр

g=sqr(a*a+a*a) диагональ  

if c> g then 1 else 2

1 ? "квадрат вписан в круг"

goto 3

2 ? "квадрат не вписан в круг"

3 end