ai giúp mình vơi ;< Bài 1 viết ct hoàn chỉnh in ra màn hình 5 lần dòng Việt Nam Hết Dịch - sô lần in ra đc nhập từ bàn phím Bài 2 viết ct tính tổng 20

Bài 1:

uses crt;
var i,i1:integer;
begin
   clrscr;
   write(‘In ra may lan nao: ‘); readln(i);
   for i1:=1 to i do
   writeln(‘Viet Nam Het Dich!’);
   readln
end.

Bài 2:

uses crt;
var i,n,tong:integer;
begin
   clrscr;
   write(‘Nhap n: ‘); readln(n);
   for i:=1 to n do tong:=tong+i;
   writeln(‘Tong la: ‘,tong);
   readln
end.