Константой является: n=2; q=59; ф: real; п=59;

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

картинка длжна быть в папке с программой и быть в формате bmp

uses graphabc;

var b: picture;

beginb : = picture.create('banner.bmp'); b.load(n); b.draw(200, 200); 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

решает данную и выводит ответ 

program d1; varu: array[1..16] of real; x: array[1..16] of real; i,z: integer; beginx[1]: =5; for i: =2 to 16 dobeginx[i]: =x[i-1]+0.2; end; for i: =2 to 16 dobeginu[i]: =x[i]*2+3; write(u[i],' | ')end; end.