Поменять местами содержимое переменных A и B и вывести новые значения

var
A, B, v: real;

begin
write(Введите число A: );
readln(A);
write(Введите число B: );
readln(B);
v := A; lt;-- Значение А записываем в v
A := B; lt;-- Значение В записываем в А
B := v; lt;-- Значение А записываем в В, так как v = A
writeln(Итог:);
writeln( A = , A, , B = , B);
readln
end.