Lời giải bài tập Pascal

Bài 4: tính tổng các số tự nhiên từ 1 đến n với số n nhập từ bàn phím
cách 1:
program bai4;
uses crt;
var
n:integer;
begin
        write('nhap n=');readln(n);
        writeln('tong cac so tu nhien tu 1 den n=',(n+1)*n/2:0:0);
readln;
end.

cách 2:
program bai4;
uses crt;
var
n:integer;
m:real;
begin
        write('nhap n=');readln(n);
         m:=(n+1)*n/2;
        writeln('tong cac so tu nhien tu 1 den n=',m:0:0);
readln;
end.

cách 3:
program bai4;
uses crt;
var
n,m:integer;
begin
        write('nhap n=');readln(n);
         m:=(n+1)*n div 2; {div la phep chia lay phan nguyen}
        writeln('tong cac so tu nhien tu 1 den n=',m);
readln;
end.
Bài 5: tính tổng các số tự nhiên từ x đến y với số x, y nhập từ bàn phím
cách 1:
program bai5;
uses crt;
var
x,y:integer;
begin
        write('nhap so dau=');readln(x);
        write('nhap so cuoi=');readln(y);
        writeln('tong cac so tu nhien tu x den y=',(x+y)*(y-x+1)/2:0:0);
readln;
end.

cách 2:
program bai5;
uses crt;
var
x,y:integer;
m:real;
begin
          write('nhap so dau=');readln(x);
          write('nhap so cuoi=');readln(y);
          m:=(x+y)*(y-x+1)/2;
          writeln('tong cac so tu nhien tu x den y=',m:0:0);
readln;
end.

cách 3:
program bai5;
uses crt;
var
x,y,m:integer;
begin
           write('nhap so dau=');readln(x);
           write('nhap so cuoi=');readln(y);
           m:=(x+y)*(y-x+1) div 2; {div la phep chia lay phan nguyen}
            writeln('tong cac so tu nhien tu 1 den n=',m);
readln;
end.