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