Две геометрические фигуры вырезаны из бумаги: квадрат с диагональю A и полукруг радиуса S (данные вещественные). Описать функцию, аргументами которой являются размеры фигур, а результатом будет TRUE, если одна фигура больше другой и по площади и по периметру, и FALSE в противном случае — Pascal(Паскаль)

function skv(d:real):real;
begin
skv:=d*d/2;
end;
function skr(r:real):real;
begin
skr:=3.14159265*r*r;
end;
var
r,d:real;
begin
writeln('Enter square diagonal lenght');
readln(d);
writeln('Enter radius');
readln(r);
if skv(d)>skr(r) then writeln('TRUE')
                 else if skv(d)<skr(r) then writeln('FALSE')
                                       else writeln('EQUAL');
readln;
end.