Question

pascal abc
y=x/2 x>25
x+4 x<25

Answer 1

program task31057170;

var

 x: integer;

 y: real;

begin

 Writeln('ВВЕДИТЕ X: ');

 Readln(x);

 if x > 25 then

   y := x / 2

 else if x < 25 then

   y := x + 4

 else Writeln('Error: x = 25!');

 Writeln('Y = ', y);

end.