Объяснение:

1)

Program zero;

Var a, b, c :Integer;

Begin

a:=20*10;

b:=(50*30)-a;

c:=2*(50+30)-30;

Whiteln('Площадь дома: ', a);

Whiteln('Площадь свободного двора: ', b);

Whiteln('Длина забора: ', c);

Readln

End.

2)

Program zero;

Var a, b:Real;

Begin

a:= Pi*Sqr(800);

b:=2*Pi*800;

Whiteln('Площадь круга: ', a:10:5);

Whiteln('Длина окружности: ', b:10:5);

Readln

End.

3)

Program zero;

Var a:Real;

Begin

a:=(3*80+2*90)/(3+2);

Whiteln('Средняя скорость автомобиля: ', a:5);

Readln

End.