Viết sử dụng chương trình con thủ tục, tính tổng của 5 cặp số bất kì

Program BTH;
uses Crt;
var a,b,c,d,e,f:longint;
procedure ST;
Begin
f:=a+b+c+d+e;
end;
Begin
Clrscr;
Write('Nhap so thu 1: ');readln(a);
Write('Nhap so thu 2: ');readln(b);
Write('Nhap so thu 3: ');readln(c);
Write('Nhap so thu 4: ');readln(d);
Write('Nhap so thu 5: ');readln(e);
ST;
Writeln('Tong 5 so tren la: ',f);
readln;
End.

program justin_bieber;

uses crt;

var a,b,c,d,e,S: real;

begin;

clrscr;

writeln('nhap 5 so bat ki ma ban chon: ');

readln(a,b,c,d,e);

S=a+b+c+d+e;

writeln('tong 5 so bat ki ma ban vua nhap la: ',S);

readln;

end.