А будет равно 10, так как а > 5, но b не больше a
Var
x,z,c:Integer;
begin
readln(x,z);
if x < 5 then
c:= x + z;
if (5 <= x) and (x <= 10) then
c:=2*x-3*z;
if x > 10 then
c:= 25*x+z*25;
writeln(c);
end.
Ахахаххахаха на песню похоже на AK47 Азина 3 топора 777
begin
var r := ReadReal();
var S: Action2<real, real> :=
(percent, radius)-> Println(percent * Round(Pi, 2) * radius ** 2);
S(1, r);
S(0.3, r);
end.
Program 15_zadaha;
var
x, y: real;
begin
writeln('Введите значение Х'):
readln(x);
y:= 2*cos(x*3)/sin(x*3)-(1/(12*sqr(x)+7*x-5));
writeln('y= ',y);
end.