Question

Пожалуйста помогите написать программу в паскале!!!!!!!

Даны радиус круга и сторона квадрата. Проверьте, пройдет ли круг в квадрат?

Answer 1

var r,a:real;

begin

readln(r,a);

if 2*r<a then writeln('proidet') else writeln('ne proidet');

end.