Pascal
Федя пытается протолкнуть в форточку размерами X см и Y см свою голову, длина окружности которой С см. Удастся ли мальчику его эксперимент или голова застрянет?

Var   X,Y,C:real;BeginWrite('X = ');ReadLn(X);Write('Y = ');ReadLn(Y);Write('C = ');ReadLn(C);C:=C/Pi;if (X>=C)and(Y>=C) then Write('Удастся')else Write('Не удастся')End.