program raf105;
var x,y:real;
begin
write('x = ');
readln(x);
y:= x-2/4;
writeln('y = ',y);
end.
Язык PascalABC
program raf105;
var x,y:real;
begin
write('x = ');
readln(x);
y:= x-2/4;
writeln('y = ',y);
end.
Язык PascalABC