Вычисли число строк в таблице, считая шапку таблицы.

 

число переменных в выражении —  3

​

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)

периметр равен сумме всех сторон

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