Pascal. Процедуры. Задача 1

Написать функцию для обмена значений двух переменных

Решение:

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.