Кто может нарисовать автобус в Pascal? Можете добавлять отсебятины, но не перебарщивайте​

101110, 101111. в десятичной эти числа равны 46 и 47.

1)никакие люди не повторят подвиг матросова!

2)все великие,учёные люди подвергались критике и злобе,но это делало их сильнее.

3)не все люди могут победить в себе страх и сдержать боль перед смертью как это сделал извейстнейший казак разин

одна из возможных форм курсора - прямая

var x: array[1..10] of real; n: integer; begin  for n: =1 to 10 do begin    x[n]: =power(3,n)-5;     writeln(x[n]);     end; end.

вот программа.