var
x,y,p:real;
begin
write('Enter X:=');readln(x);
write('Enter P:=');readln(p);
y:=(p-2*x)/4;
write('S:=',y*(y+x));
end.
паскаль
Объяснение:
var
x,y,p:real;
begin
write('Enter X:=');readln(x);
write('Enter P:=');readln(p);
y:=(p-2*x)/4;
write('S:=',y*(y+x));
end.
паскаль
Объяснение: