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 số tự nhiên liên đầu liên tiếp - số tự nguên cần tính tổng đc nhập từ bàn phím

Bài 1:

*   5 lần

program bai_giai;
uses crt;
var i:integer;
begin
    clrscr;
    for i:=1 to 5 do writeln('Viet Nam Het Dich');
    readln;
end.

*   Số lần được nhập

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

Bài 2:

*   Tổng 20 số

program bai_giai;
uses crt;
var i,t:longint;
begin
    clrscr;
    t:=0;
    for i:=1 to 20 do t:=t+i;
    readln;
end.

*   Tổng số được nhập

program bai_giai;
uses crt;
var n,i,t:longint;
begin
    clrscr;
    write('Nhap so nguyen: ');  readln(n);
    t:=0;
    for i:=1 to n do t:=t+i;
    readln;
end.

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.