Составить алгоритм, с которого можно вычислить поместиться ли круг произвольного радиуса в квадрат с произвольной стороной.

Алгоритм: просим пользователя ввести площадь квадрата sk и площадь окружности sr вычислить длину стороны квадрата  вычислить длину диагонали квадрата  вычислить радиус окружности  если длина диагонали с меньше или равна радиусу окружности r, то квадрат поместится в круге если радиус r меньше или равен длине стороны квадрата, то окружность поместится в квадрате. в противном случае фигуры не поместятся одна в другой. вот реализация алгоритма на языке basic:   10 rem площадь круга и квадрата   20 input "введите площадь круга"; sr   30 input "введите площадь квадрата"; sk   40 a=sqr(sk)   50 c=sqr(a^2 * 2)   60 pi=3.1415926   70 r=sqr(sr/pi)   80 if a> =r then print "круг поместится в квадрат": goto 110   90 if r> =c then print "квадрат поместится в круг": goto 110 100 print "фигуры не поместятся друг в друга" 110 print "": print 120 end

Var a: integer; p: real; const d=2.54; begin write('введите число для перевода (см→дюйм) : '); readln(a); p: =a*d; writeln(p); readln; end.