Если я правильно тебя поняла то ответ на фото.
11-2048
12-4096
13-8192
14-16384
15-32768
16-65536
uses GraphABC;
var n:integer;
begin
writeln('Введите номер фигуры (1-квадрат, 2-треугольник, 3-круг):');
readln(n);
setwindowsize (640,480);
setpencolor (clBlue);
setpenwidth (4);
case n of
1: begin
setwindowtitle ('квадрат');
rectangle(200,100,400,300);
end;
2: begin
setwindowtitle ('треугольник');
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
3: begin
setwindowtitle ('круг');
circle(300,200,120);
end;
end;
end.
16*32*60=30720 символов
30720*8=30720 байт=30кбайт
program pr;
var
a,b:integer;
begin
readln(a,b);
while(a<=b) do readln(a,b);
writeln(0.5*a*b,', ',a+b+sqrt(a*a+b*b));
end.
Таблицы - в прилагаемых файлах.