Даны сторона квадрата и радиус окружности. составить программу определяющую у какой фигуры площадь больше

var     a, r: real; begin     readln(a, r);     a := a * a;     r := Pi * r * r;     Writeln('Sa = ', a, ' Sr = ', r);     if a > r then         Writeln('Sa > Sr')     else Writeln('Sr > Sa'); end.