Написать программу на языке Paskal Заданы диаметр круга D и сторона квадрата А. Определить, поместится ли круг в квадрате. Задачу проверить при а) D=70, A=36 б) D=8, A=64 Квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата. Результат вывести на экран.

Предыдущий
вопрос Следующий
вопрос

program CircleInSquare;
var
D, A: integer;
begin
D := 70;
A := 36;
if D <= A then
writeln('Круг поместится в квадрате')
else
writeln('Круг не поместится в квадрате');
D := 8;
A := 64;
if D <= A then
writeln('Круг поместится в квадрате')
else
writeln('Круг не поместится в квадрате');
end.