Прости,но не мог бы ты написать вопрос на русском языке,а то так не смогу помочь(
var
a: integer;
b: real;
begin
writeln ('введи целое число');
read (a);
if a mod 2=0 then b:=a/2
else
b:=a*a*a;
writeln ('результат',b);
end.
Программа будет вот такой
121211
S1 = 36 * 20 = 720 м^2 - площадь прямоугольной клумбы
S2 = pi * R^2 = pi * 6^2 = 3 * 36 = 108 м^2 - площадь круглой клумбы
S газона = S1 - 2*S2 = 720 - 2*108 = 504 м^2 - площадь газона
uses Math;
var w,x,y,z : real;
begin
x := 0.4* Power(10,4);
y := -0.875;
z := 0.475 * Power(10,-3);
w := Power(abs(cos(x) - cos(y)), 1 + 2 * sin(y) * sin(y)) * (1 + z + (z*z)/2 + Power(z,3)/3 + Power(z,4)/4);
writeln(w);
end.