uses crt; var i:longint; a:array[1..4]of longint; begin clrscr; write('a,b,c,d=');readln(a[1],a[2],a[3]); for i:=1 to 3 do if a[i] mod 2<>0 then writeln(a[i]); readln end.
Program NhatNgu; Uses crt; Var a,b,c: longint; Begin Clrscr; Write('Nhap a, b, c: '); Readln(a,b,c); If a mod 2 = 1 then Write(a,' '); If b mod 2 = 1 then Write(b,' '); If c mod 2 = 1 then Write(c,' '); Readln End.
