bài 3:

uses crt;
var i,n: integer;
a:string;
begin
clrscr ;
write('nhap ho va ten:'); readln(a);
write('nhap so n:');readln(n);
for i:=1 to n do writeln(a);
readln;
end.

bài 7:

uses crt;
var i,n,s: integer;
begin
clrscr ;
write('nhap so n:');readln(n);  s:=1;
for i:=1 to n do
 if i mod 2 = 0 then s:=s*i;
write(' tich cac so chan tu pham vi <=N:',s);
readln;
end.

- Chương trình 1 :

program lap;

uses crt;

var i, n : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

for i := 1 to n do writeln('Nguyen Van A');

readln

end.

- Chương trình 2 :

program tinh;

uses crt;

var i, n, t : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

t := 1; for i := 1 to n do

if i mod 2 = 0 then t := t * i;

write('Tich = ', t);

readln

end.