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

Водном месте, видимо, опечатка (№ 21-25 два раза, а № 26-30 нет). const n=40; var x: array[1..100] of real; i: integer;   begin randomize; for i: =1 to 5 do begin   write('x[',i,']=');   readln(x[i]);   end; for i: =6 to 10 do x[i]: =random(11); for i: =11 to 15 do x[i]: =random(11)-10; for i: =16 to 20 do x[i]: =random(31)+20; for i: =21 to 25 do x[i]: =random(31)-50; for i: =31 to 40 do x[i]: =i*i; for i: =30 downto 26 do x[i]: =x[i+1]+x[i+2]; for i: =1 to n do write(x[i],' '); writeln; end. пример: x[1]=32 x[2]=49 x[3]=81 x[4]=27 x[5]=50 32 49 81 27 50 3 7 7 6 5 -9 -4 -3 -3 0 23 32 40 24 36 -43 -26 -34 -44 -22 12808 7877 4931 2946 1985 961 1024 1089 1156 1225 1296 1369 1444 1521 1600 

Универсальным устройством ввода информации является клавиатура. клавиатура позволяет вводить числовую и текстовую информацию. для оптического ввода в компьютер и преобразования в компьютерную форму изображений (фотографий, рисунков, слайдов), а также текстовых документов используется сканер. для ввода графической информации и для работы с графическим интерфейсом программ используются координатные устройства ввода информации: манипуляторы (мышь, трекбол звуковая карта, цифровые камеры, тв тюнер. я бы так ответила)