Как в Паскале записать решить задачу: найти площадь круга и длину окружности если дан радиус. В записи в Паскале надо использовать оператор READLN.

//Как в Паскале записать решить задачу: найти площадь круга //и длину окружности если дан радиус. //В записи в Паскале надо использовать оператор READLN. var r,s,p  : real; begin   Writeln ('Введите радиус искомой окружности');   Readln (r);   p:=2*3.14*r;   s:=3.14*sqr (r);   Writeln ('Длина окружности находится по формуле p=2πr и равна ',p);   Writeln ('Площадь круга находится по формуле S=π r^2 и равна ',s); end.