Написать функцию для обмена значений двух переменных
Решение:
var
k, l: integer;
procedure exchange (var a,b: integer);
var c: integer;
begin
if a > b then begin
c := a;
a := b;
b := c;
end;
end;
begin
writeln ('Введите два числа: ');
readln (k, l);
exchange (k, l);
writeln ('k = ', k,'; l = ', l);
readln
end.
