Поместится ли квадрат в круге? - Pascal

Формулировка задачи:

Помогите пожалуйста написать программу...Заданы площадь круга и квадрата.Определить ,поместится ли квадрат в круге.Составить блок схему.

Решение задачи: «Поместится ли квадрат в круге?»

Листинг программы

var Skrug,Skvad,D,A,diag:real;
begin
Writeln('ploschad kruga=');
Readln(Skrug);
Writeln('ploschad kvadrata=');
Readln(Skvad);
D:=2*sqrt(Skrug/3.14);
A:=sqrt(Skvad);
diag:=sqrt(2*A*A);
if diag<=D then writeln('DA!!!kvadrat pomestitsya v kruge')
        else writeln('NET!!!kvadrat ne pomestitsya v kruge');
end.

Объяснение кода листинга программы

Создается переменная Skrug и присваивается ей значение, полученное от пользователя.
Создается переменная Skvad и присваивается ей значение, полученное от пользователя.
Вычисляется значение переменной D с помощью формулы D=2*sqrt(Skrug/3.14).
Вычисляется значение переменной A с помощью формулы A=sqrt(Skvad).
Вычисляется значение переменной diag с помощью формулы diag=sqrt(2AA).
Проверяется условие if diag<=D then writeln('DA!!!kvadrat pomestitsya v kruge')
- Если условие истинно, то выводится сообщение 'DA!!!kvadrat pomestitsya v kruge'.
Проверяется условие if diag<D then writeln('NET!!!kvadrat ne pomestitsya v kruge').
- Если условие истинно, то выводится сообщение 'NET!!!kvadrat ne pomestitsya v kruge'.
Конец программы.