Даны три числа возвести в квадрат те из них значения которых отрицательны

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

слева сколько воды находится в кувшинах

8 - 0 : 1. наливаем в кувшин 8 л

5 - 3 : 2. переливаем из 8 л кувшина в 3 литровый, и выливаем в реку

2 - 3 : 3. переливаем из 8 л кувшина  3 литровый и выливаем в реку

0 - 2 : 4. переливаем оставшиеся 2 л из 8 литрового в 3 литровый кувшин

8 - 2 : 5. наливаем воду в 8 л кувшин

7 - 3 : 6. наливаем воду из 8 л кувшина в 3 л пока он не заполниться, т.е. наливаем туда 1 л, в 8 л кувшине остается 7 литров.

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.