Сравнить окружности, одна из которых задана радиусом…

var r, s: real; begin write ('Введите радиус первой окружности '); readln (r); write ('Введите площадь второй окружности '); readln (s); if r*r*pi > s then writeln ('Первая окружность больше второй') else if r*r*pi < s then writeln ('Первая окружность меньше второй') else writeln ('Окружности равны'); end.