Введите с клавиатуры три числа если все числа отрицательны и не равны между собой то замените числа их квадратами и выведете результат на экран если все числа равны 0 то сделайте их соответственно равными 5, 20, 15 и выведете результат. иначе найдите и выведете сумму чиселв паскале)

Uses crt; var x,y,z: real; begin readln(x,y,z); if (x< 0) and (y< 0) and (z< 0) and (x< > y) and (x< > z) and (y< > z) then write(x*x,', ',y*y,', ',z*z) else     if (x=0) and (y=0) and (z=0) then write('5, 20, 15')     else write(x+y+z); end.

Var a: array[1..100] of integer; n,i,k,c: integer;   begin randomize; write('n = '); readln(n); writeln('исходный массив: '); for i: =1 to n do begin   a[i]: =random(100);   write(a[i]: 6);   end; writeln;   for k : = 1 to n-1 do     for i : = n-1 downto k do       if a[i] > a[i+1] then         begin           c: =a[i];           a[i]: =a[i+1];           a[i+1]: =c         end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i]: 6); writeln; end. пример: n = 15 исходный массив:     10     0     59     85     98     71     72     55     29     50     54     27     34     56     73 отсортированный массив:       0     10     27     29     34     50     54     55     56     59     71     72     73     85     98

Program players;   var     n, p, i: byte;     height: word; begin   write('кол-во желающих:   ');   read(n);   p: =0;   for i: =1 to n do     begin       write('рост  ', i, ' желающего:   ');       read(height);       if height => 170  then         p: =p+1;       end;   write('претендентов:   ', p); end. предположительно, так.