Просто выражение, записанное на языке PascalABC:
Power(2,-x)-Cos(x)+Sin(2*x*y)
Программа для вычисления:
Var
x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('2^',-x,' -Cos(',x,') +Sin(',2*x*y,') = ',Power(2,-x)-Cos(x)+Sin(2*x*y))
End.
При условии, что стороны прямоугольника вводятся с клавиатуры и являются целыми числами:
program p_s;
var
a,b,p,s:integer;
begin
write('введите сторону a: ');
readln(a);
write('введите сторону b: ');
readln(b);
p:=(a*2)+(b*2);
writeln('периметр: ', p);
s:=a*b;
writeln('площадь: ', s);
end.