с Кумиром по информатике
Как это решить?

напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.

т.к рисунок состоит из  1310720  пикселей, следовательно чтобы получить такую цифру нужно найти произведение двух чисел, которые больше 1000, т.к. 1000*1000=1000000, следовательно, разрешение экрана наиболее близкое к данному : 1280 на 1024, т.к. 1280*1024=1310720 и это ближайшие числа к 1000

отнимем от первого второе  варенье минус керосин = 150  если керосин в два раза легче, то варенье в два раза тяжелее  2х - х = 150  х=150 - это все керосина  значит банка весит 200 г