Ответ:
1.
program z1;
var r:real;
begin
write ('Введите радиус круга ');
readln (r);
if r>10 then write ('Площадь круга ',r*r*3.1415926:0:3)
else write ('Радиус круга ',r)
end.
2.
program z2;
var x1,x2:real;
begin
write ('Введите координаты двух точек на числовом луче ');
readln (x1,x2);
if abs(x1)>abs(x2) then write (x1,' дальше от 0 ')
else if abs(x1)
else write ('Точки одинаково удалены от 0 ')
end.