Составьте блок-схему алгоритма решения задачи и программу на языке Turbo Pascal, ввод данных организовать с клавиатуры. Поменять местами значения переменных А и B. Вывести новые значения А и B

var A,B,C:Integer;
begin
      read(A);
      read(B);
          C:=A;
          A:=B;
          B:=C;
      writeln('A='+inttostr(A));
      writeln('B='+inttostr(B));
      readln;
end.