11. Создать проект, который определяет нечетные значения из введенных чисел, выводит их на форму. Количество чисел заранее не известно.
Visual Basic 6.0 через While ,Loop, Do, Until

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

byck is my dog.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

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

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.