Решите 8 и 9 задание пожалуйста.Паскаль

Задание №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')     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.