program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var y,x,z:integer;
const
a=25;
b=7;
begin
x := 5;
y := 24;
y := y - 2*x;
if (x > y) and (y < 0) then
z := x + y
else z:= x - y;
write (z);
end.
ответ: -9
Объяснение:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var y,x,z:integer;
const
a=25;
b=7;
begin
x := 5;
y := 24;
y := y - 2*x;
if (x > y) and (y < 0) then
z := x + y
else z:= x - y;
write (z);
end.
ответ: -9
Объяснение: