Program baitap;

Uses crt;

Var A:array[1..10] of integer;

      i:integer;

Begin

Clrscr;

For i:=1 to 10 do 

     Begin

     Write('Nhap so thu ',i);

     Readln(A[i]);

     End;

For i:=1 to 10 do If A[i] mod 2<>0 then writeln(A[i]);

Readln

End.

______________________________________

Program bai2;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap a va b:');

Readln(a,b);

If b<>0 then writeln('a/b=',a/b:5:2)

              else writeln('b khong thoa man');

Readln

End.

program sksk;

uses crt;

var a : array[1..10] of integer;

      i : integer;

begin

clrscr;

for i := 1 to 10 do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

end;

writeln;

write('cac phan tu khong chia het cho 2 la :');

for i := 1 to 10 do if a[i] mod 2 <> 0 then write(a[i]:4);

readln

end.