Var x, y, b: integer;
begin
write ('Input first number: ');
readln (x);
write ('Input second number: ');
readln (y);

writeln ('x = ', x, ', y = ', y);
writeln ('Changing values... changing values...');

b := x;
x := y;
y := b;

writeln ('x = ', x, ', y = ', y);

readln
end.

vikasss1581    3   16.05.2020 07:49    1