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:

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.

Bài 1:

 *   In 5 lần

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

*   In n lần

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

Bài 2:

 *  Tổng 20 số

program bai_giai2;
uses crt;
var i,t:integer;
begin
    clrscr;
    t:=0;
    for i:=1 to 20 do t:=t+i;
    write(t);
    readln;
end.

*  Tổng n số

program bai_giai2;
uses crt;
var i,t,n:integer;
begin
    clrscr;
    readln(n);
    t:=0;
    for i:=1 to n do t:=t+i;
    write(t);
    readln;
end.