Program pr1;
var
a,i:integer;
p:int64;
begin
p:=1;
readln(a);
for i:=a to 20 do
p:=p*i;
writeln(p);
end.
Так?
var a, R: integer; S:real;
begin
writeln('Введите радиус круга');
readln(R);
writeln('Введите сторону квадрата');
read(a);
S:=3.14*R*R;
a:=a*a;
If S>a then write('Площадь круга больше площади квадрата')
else write('Площадь квадрата больше площади круга');
end.
Ты не в том числе и в других городах. В. В общем,
Он захотел летать как птица вот Леонардо да Винчи создал из дерева и бумаги не большой самолётик который всех порозил но не все им стали пользоваться ,а когда он хотел как рыба плавать он взял железо истекло с трубкой и соединил и получился шлем струбкой и дышит и плавает.
Удачи во всём тебе и выучись хорошо!