ПЛЗ Даны две окружности a=(xa, ya, ra) и b=(xb, yb, rb Определить, пересекаются ли окружности, или нет, или одна полностью накрывает собой другую. Окружности обязательно различны хотя бы в одном из параметров! Входные данные Дано 2 тройки целочисленных чисел на двух строках: окружность a−xa, ya, ra и окружность b−xb, yb, rb (−100≤xa, ya, xb, yb≤100 и 1≤ra, rb≤400) Выходные данные Необходимо вывести ответ на задачу: «a^b» - окружность a пересекает окружность b (но не покрывает) «a|b» - окружность a не пересекает окружность b «a>b» - окружность b входит в окружность a «b>a» - окружность a входит в окружность b Примеры входные данные 2 2 1 3 2 1 выходные данные a^b входные данные 2 2 1 5 2 1 выходные данные a|b входные данные 2 2 2 2 2 1 выходные данные a>b входные данные 2 2 1 2 2 2 выходные данные b>a

Pascalabc.net var   a: array[1..10000] of integer;   kz,maxp,n,i,j: integer;   begin     i: =0;   maxp: =integer.minvalue;   writeln ('готов к приему чисел');   repeat     i: =i+1;     readln (a[i]);     until a[i]=0;   n: =i-1;   readln (kz);   for i: =1 to n-1 do      for j: =2 to n do        if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]);     writeln ('получено ',n,' чисел');   writeln;   writeln ('полученное контрольное значение: ',kz);   writeln;   writeln ('вычисленное контрольное значение: ',maxp);   writeln;   if kz=maxp      then writeln ('контроль пройден')     else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден