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

Question

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

Answer 1

Var
   X,Y,C:real;
Begin
Write('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.