Дана а сторона квадрата найти площадь вписанного круга составить программу

Program inscribed_circle; var a,s: real; const pi=3.14; begin write('сторона квадрата = '); readln(a); s: =pi*sqr(a/2); write('площадь вписанного круга = ',s); end.

Вопрос 1 a) номер вагона - числовой целочисленный (целый) тип, если не используется дополнительная нумерация. например, "0б" - нулевой, багажный. б) сорт яблок - символьный тип. в) количество дней в отпуске - целый тип вопрос 2 ‘сорок’ - символьный тип 115 - целый тип 0.15 - вещественный тип вопрос 3 целый тип (byte): -46, 15 вещественный тип: -0.326 (символьный) тип: '5', 'g' строковый тип: ‘море’ вопрос 4 площадь квартиры - постоянная, если речь об одной квартире, в которой не делается перепланировок; название кинотеатра - может быть изменено, но редко, я бы отнес к постоянной; количество дней в феврале месяце - переменная, зависит от того, является ли год високосным; количество дней в году - переменная, зависит от того, является ли год високосным; вопрос 5 имя человека - символьный тип; символ из таблицы кодов ascii - тип; объём жидкости в сосуде - вещественный тип. вопрос 6 допустимые величины: 23; ‘семьдесят’; 123; ‘тридцать один’ хотя, ‘тридцать один’ - это  не по-, правильно ‘тридцать одна’, но в компьютерных программах это допускается.

uses graphABC;

var xx: integer;

procedure Obl(x,y:integer);

begin

setpenwidth(1);

setpencolor(clwhite);

setbrushcolor(clwhite);

circle(x,y,40);

circle(x+30,y,30);

circle(x-40,y,30);

end;

procedure Kor (x: integer);

begin

setpencolor(clbrown);

setbrushcolor(clbrown);

setpenwidth(3);

rectangle(x+50,250,x+150,270);

line(x+149,268,x+180,250);

line(x+180,250,x+149,250);

floodfill(x+155,255,clbrown);

setpencolor(clwhite);

line(x+100,245,x+180,245);

line(x+180,245,x+100,150);

line(x+100,150,x+100,245);

line(x+90,245,x+50,245);

line(x+50,245,x+90,170);

line(x+90,170,x+90,245);

floodfill(x+105,240,clwhite);

floodfill(x+85,235,clwhite);

end;

begin

setwindowsize(700,500);

lockdrawing;

xx:=-100;

repeat

clearwindow;

setpencolor(clblue);

setbrushcolor(clblue);

rectangle(0,0,700,250);

setpenwidth(5);

setpencolor(clskyblue);

arc(350,-1350,1700,180,0);

floodfill(350,300,clskyblue);

setpencolor(claqua);

arc(350,-1050,1500,180,0);

floodfill(350,400,claqua);

floodfill(350,470,clCream);

Obl(300,90);

Obl(450,150);

Obl(150,110);

setpencolor(clyellow);

setbrushcolor(clyellow);

circle(600,100,50);

Kor (xx);

sleep(1);

xx:=xx+1;

redraw;

until xx>1000;

end.

Объяснение:

получится кораблик:)