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 số tự nhiên liên đ

Bài 1:

uses crt;
var n,i:integer;
begin
   clrscr;
   write(‘Nhap n: ‘); readln(n);
   for i:=1 to n do
   writeln(‘Viet Nam Het Dich’);
   readln
end.

Bài 2:

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