câu 1:

uses crt;

var i,n: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

if (i>0) and (i mod 2=0) then write (i:4);

readln;

end.

câu 2:

uses crt;

var n,s,i: real;

begin

clrscr;

i:=0

while i<=10 do

begin

i:=i+1;

write ('nhap so thuc: ');  readln (n);

if n<0 then s:=s+(n*n);

end;

writeln (s);

readln;

end.

Câu 1:

uses crt;

var a,i: integer;

begin

clrscr;

write('Nhap so nguyen: ');

readln(a);

write('Cac so duong va chan la: ');

for i:=1 to a do if (i>0) and (i mod 2=0) then write(i,' ');

readln

end.

Câu 2:

uses crt;

var i: integer;

s: real;

a: array[1..10] of real;

begin

clrscr;

s:=0;

for i:=1 to 10 do begin write('a[',i,']='); readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then s:=s+(a[i]*a[i]);

write('Tong = ',s);

readln

end.