Program lolha;Var N, I :integer; Begin For I:=1 to 20 do Begin N:= (sqrt(I)) If (N mod 2=0) then Writeln(N); End;End.
תודה מראש.