Viết chương trình nhâp vào 2 biến AB . Tính tổng AB , hiệu AB , xuất tổng hiệu lên màn hình

Cách 1 :
uses crt;
var a,b,tong,hieu:longint;
begin
clrscr;
write('Nhap vao A = ');readln(a);
write('Nhap vao B = ');readln(b);
tong := a+b;
hieu := a-b;
writeln('Tong cua hai so A va B la: ',tong);
writeln('Hieu cua hai so A va B la: ',hieu);
readln
end.
Cách 2:
uses crt;
var a,b:longint;
begin
clrscr;
write('Nhap vao A = ');readln(a);
write('Nhap vao B = ');readln(b);
writeln('Tong cua hai so A va B la: ',a+b);
writeln('Hieu cua hai so A va B la: ',a-b);
readln
end.

uses crt;
var a,b:int64;
begin
    clrscr;
    write('Nhap A, B: ');readln(a,b);
    writeln('Tong: ',a+b);
    writeln('Hieu: ',a-b);
readln;
end.