Составьте блок-схему алгоритма решения задачи и программу на языке 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.