Даны стороны прямоугольника a и b и радиус окружности R. Влезет ли прямоугольник в окружность? Решить в паскале. Помогите пожалуйста))

program n2; var S1,S2a,b,R:integer; s1:=pi*sqrt(R); s2:=a*b; if s1>s2 then writeln('Влезет') else writeln('Не влезет') end; end.

Программа предыдущего пользователя не совсем верна;)  Var Begin readln (a); readln (b); readln (r); if (a>2*r) and (b>2*r) then writeln ('влезет') else writeln (' не влезет'); end. Сама сегодня решала! Однозначно правильно.  Р.S. Дарина, ты, что-ли? Пиши в лс:)