Ввести значения: а - длины стороны квадрата и r - радиуса окружности. Программа должна рассчитать площадь фигур. Если площадь квадрата меньше либо равна площади круга, то - рассчитать периметр квадрата и вывести на печать. Если площадь круга меньше либо равна площади квадрата, то - рассчитать длину окружности и вывести полученное значение на печать.9 класс икт паскаль помогиитеее плиииз

Var a,r,sa,sr:real;
begin
      write(Введите число a=);
      readln(a);
      write(Введите число r=);
      readln(r);
      sa:=sqr(a);
      sr:=pi*sqr(r);
      writeln(Площадь квадрата = , sa, , Площадь круга = ,sr);
      if sa      if srend.