Составьте программу: По заданной стороне квадрата и радиусу круга…

Program z1; varr,s: integer; beginwriteln ('Введите радиус круга'); readln (r); writeln ('Введите сторону квадрата'); readln (s); If s>r thenwriteln ('Круг поместится в квадрат') elsewriteln ('Квадрат поместится в круг'); end.