1. Мазмұнды қалай жаңалаймыз?
2. Мазмұнды қалай жоямыз?
заранее

заливаем 2 раза по 5л в 9л ведро осталось 1л.переливаем 1л в 9л ведро+5литров=6л,доливаем с 5л ведра 3л, осталось в 5 л ведре 2лпереливаем в9л ведро 2л+5л доливаем=7л  ещё добавляем с 5л ведра 2л  осталось в 5 литровом ведре 3 литра

const  n = 20;   var  a : array [1..n] of integer;   pos, sum, znak : integer;   begin  write('массив: ');   randomize;   for pos : = 1 to n do  begin  a[pos] : = random(101) - 50;   write(a[pos]: 4);   end;   writeln;   for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos];   writeln('разность между суммой 1-й половины и 2-й = ', sum);   end.

если не считать пропущенное равно, то нужна разница квадратов в и а

uses crt; var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 0) then s: =s+a; until a=0; writeln(s); end.