Составить алгоритм решение дано два числа a и b если a=b то числа вознести в квадрат a2=a*a если a больше b сложить

Program asd; uses crt; const n=10; var a,b,s: real; begin writeln('введите число a: '); readln(a); writeln('введите число b: '); readln(b); if a=b then s: =sqr(a)  else    if a> b then s: =a+b    else    writeln('числа не соответствует условию! ');   writeln('ответ: ',s); end.алгоритм такой (линейный): 1. ввод чисел2. условие3. считаем4. выводим результат

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. для только положительных: //c циклом for var s,i: integer; begin   for i: =100 to 999 do       if i mod 77 = 0 then s: =s+i;   writeln('сумма трехзначных кратных 77: ',s); end. тестовое решение: сумма трехзначных кратных 77: 5929 // с циклом while var s,i: integer; begin   i: =100;   while i< =999 do begin       if i mod 77 = 0 then s: =s+i;       i: =i+1;   end;   writeln('сумма трехзначных кратных 77: ',s); end.

Const n = 5;   m = 5; var a: array[1..n,1..m] of integer; i,j,s: integer; begin //для теста заполним массив сл.числами   for i: =1 to n do begin       for j: =1 to m do begin           a[i,j]: =random(21)-10; write(a[i,j]: 4);       end;       writeln; writeln;   end;   //сумма всех элементов массива   for i: =1 to n do       for j: =1 to m do s: =s+a[i,j]; writeln('сумма всех элементов массива: ',s); //сумма каждой строки for i: =1 to n do begin       s: =0;       for j: =1 to m do begin           s: =s+a[i,j];       end;       writeln ('строка: ',i,' сумма: ',s);   end;       end.