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

спасибо большое.

да. это не противоречит условию задачи. Только равенства никогда не будет, т.к. число pi иррациональное, его с клавиатуры не ввести из-за бесконечности количества знаков. А нужно a=pi и r=корень из pi

В машинном формате действительные числа представлены 8 байтами - число конечное.  Поэтому, при каком -то значении  а возможно равенство.

это школьная задачка, никто не будет вводить такие длинные числа.  Даже паскаль "не переварит" их, сами проверьте: a=3.1415926535897932384626433832795, r=1,7724538509055160272981674833411

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.