Ввести значения: а - длины стороны квадрата и 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<=sr then writeln('Площадь квадрата меньше или равна площади круга. Периметр квадрата = ',a*4);
      if sr<=sa then writeln('Площадь круга меньше или равна площади квадрата. Длинна окружности = ',2*pi*r);
end.