Задание №8
var
x,y,r: real;
begin
write('Введите X:');readln(x);
write('Введите Y:');readln(y);
write('Введите R:');readln(r);
if sqr(x)+sqr(y)<= sqr(r) then writeln('1')<br> else writeln('0');
end.
Задание №9
var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a<>0 then writeln('x = ',-b/a)
else writeln('решения нет');
end.