Составить программу, которая запрашивает у пользователя два целых числа и выводит квадрат суммы (а+b)2 и сумму квадратов а2+b2 этих чисел. пример работы программы: введите два числа а=5 b=2 квадрат суммы 3 и 2 равен 25 сумма квадратов 3 и 2 равна 13

Program chisla; var a, b, c, d: integer; begin   writeln ('введите a: ');       readln (a);   writeln ('введите b: ');       readln (b);     c: =sqr(a+b);   d: =sqr(a)+sqr(b);   writeln ('квадрат суммы: ', c);   writeln ('сумма квадратов: ', d); end.

Вцелом программа рабочая, за исключением одного маленького блока, т.к. не могу прописать условие нормально: с я указала комментарии к частям кода, в том числе и к тому самому блоку. если кто знает, как его составить - отпишитесь: ) const n=5; function prime(a: integer): boolean; //функция определяет, является ли число простым var i,n: integer; begin prime: =false; if (a< 2) then exit; if (not odd(a)) and (a< > 2) then exit; for i: =3 to trunc(sqrt(a)) do begin if a mod i = 0 then exit; inc(i,2); end; prime: =true; end; var a,b,c: array[1..n] of integer; i,j,p,min,max: integer; begin for i: =1 to n do a[i]: =random(10); //заполняем массив write('исходный массив: '); for i: =1 to n do write(a[i]: 5); //выводим массив на экран writeln; min: =a[1]; max: =a[1]; //ищем минимальное и максимальное значение for i: =1 to n do if (a[i]> max) then max: =a[i]; for i: =1 to n do if (a[i]< min) then min: =a[i]; write('минимальное: ',min,' максимальное: ',max); //выводим эти значения на экран writeln; for i: =1 to n do if (prime(a[i])) or (a[i]=1) and (a[i]< > 2) then //заполняем массив с простыми числами, которые входят в массив а c[i]: =a[i]; write('простые числа в массиве а: '); for i: =1 to n do write(c[i]: 5); //выводим массив с на экран writeln; j: =min; //  весь вопрос в этом небольшом  блоке, заполнить массив в числами от min до max(которые уже найдены), не входящими в массив с for i: =1 to n do begin if (prime(j)) and (j< > c[i]) and (j< > 2) then b[i]: =j; inc(j); end; for i: =n-1 downto 1 do begin //сортируем по возрастанию for j: =1 to i do if (b[j]> =b[j+1]) then begin p: =b[i]; b[i]: =b[i+1]; b[i+1]: =p; end; end; write('искомый массив: '); for i: =1 to n do write(b[i]: 5); //выводим массив в на экран writeln; end.

Var a,b,c,s: integer; //объявляем переменные begin  s: =0; //инициализируем s  readln(a,b,c); //вводим a,b,c  if a mod 2=0 then s: =s+a//если а делится на  2 без остатка  то прибавляем а   else if b mod 2=0 then s: =s+b//то же с b         else if c mod 2=0 then begin s: =s+c; //то же с c         writeln(s); //вывод s       end     else writeln('нет'); //если нет чётных выводим сообщение end.