Вpascslabc.net определить можно ли окружность вписать в квадрат, по старому образцу​

2.) var x1, y1, x2, y2, n1, n2: real; begin write('x1, y1: '); read(x1, y1); write('x2, y2: '); read(x2, y2); n1: = sqrt(sqr(x1)+sqr(y1)); writeln(n1); n2: = sqrt(sqr(x2)+sqr(y2)); writeln(n2); if n1< > n2 then if n1< n2 then writeln('1 точка находится ближе к началу координат.') else writeln('2 точка находится ближе к началу координат.') else writeln('точки находятся на равном расстоянии от начала координат.') end.3.)var n, x, a, b, c, s: integer; beginwrite('введите число: '); readln(n); if (n> 99) and (n< 1000) thenbeginwrite('введите x: '); readln(x); a: = n div 100; b: = (n - a*100) div 10; c: = (n - a*100 - b*10); if a=x then s: =s+1; if b=x then s: =s+1; if c=x then s: =s+1; if s> 0 thenwriteln('в числе есть ', x)else  writeln('в числе нет ', x); endelsewriteln('число не трехзначное'); end.