uses crt;
var n,i:longint; a:array[1..3]of longint;
begin
clrscr;
write('Nhap 3 so: ');readln(a[1],a[2],a[3]);
write('Cac so khong am: ');
for i:=1 to 3 do if a[i] > -1 then write(a[i],' ');
writeln; write('Lap phuong cac so am: ');
for i:=1 to 3 do if a[i] < 0 then write(a[i]*a[i]*a[i],' ');
readln
end.