giúp em câu mày với em cần gấp ạ Viết thuật toán: nhập vào một số (o hoặc 1) nếu nhập vào số 1 thì tính tổng của a và b, nếu nhập vào số 0 thì hoán đổ

uses crt;
var a,b,n,t:longint;
begin
clrscr;
   write(‘a,b=’);readln(a,b);
   write(‘Nhap 1 so (0 hoac 1): ‘);readln(n);
   if n=1 then writeln(‘Tong: ‘,a+b) else begin t:=a; a:=b; b:=t; writeln(a,’ ‘,b); end;
readln
end.