bài 4:
program oken;
uses crt;
var n,i:longint;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
if i mod 2= 0 then write(n,' ');
readln;
end.
bài 5:
program oken;
uses crt;
var n,i,tam:integer;
begin
write('nhap n: '); readln(n);
for i:=0 to n do
begin
if tam mod 15=0 then writeln;
if i mod 2 = 0 then
begin
write(i:4);
tam:=tam+1;
end;
end;
readln;
end.