Ласунка Пампушка вирішила випекти на свій день народження 3 торти: яблучний, горіховий і шоколадний. Для приготування одного яблучного торта
потрібно 200 г вершкового масла, 200 г муки, 2 яйця, 300 г цукру і 8 яблук. Для
приготування одного горіхового торта треба 200 г горіхів, 400 г муки, 300 г
цукру, 300 г масла і 3 яйця. На один шоколадний торт тратиться з шоколадки, 2
яйця, 300 г муки, 200 г масла і 100 г цукру. Масло в Квітковому місті коштує 100
монет за кг, цукор – 20 монет за кг, яйця 20 монет за десяток, мука 30
монет за кг, горіхи — 100 монет за кг, яблука 2 монети за штуку, шоколадки
— 10 монет за штуку.
3
Побудувати електронну таблицю, якої буде видно, скільки
коштуватиме кожен торт; скільки продуктів кожного виду Пампушка повинна
купити і скільки це коштуватиме; скільки всього грошей вона повинна узяти з
собою, вирушаючи за продуктами в магазин.

Что бы перевести и 2-ной c.c в десятичную,необходимо разложить число по разрядам,над числом  1100,начиная с конца (т.е от знака равно) и  начиная с нулевого разряда,т.е 1100(2)=(расставляем разряды над числом) (2) =(теперь для того чтобы перевести из 2-ной в 10-ную,необходимо разложить число на множители, умножая на основание данной с.с и расставляя степень числа)1*+1*+0*+0*=(затем возводим основание с.с в степень данного числа)1*8+1*4+0*2+0*1=(в итоге перемножаем и складываем)8+4+0+0=(после сложение получилось число в 10-ной с.с) 12(10), то что (...)- это система счисления,записывается нижним индексом и без скобок,т.е старшей сестре 12 лет, если она пошла в школу с 111, то это 111(2)= ==1*4+1*2+1*1=4+2+1=7(10) ---->сестра пошла в школу с 7-ми лет, тут 7 лет - 1 кл, 8 лет - 2 кл,  9 лет - 3 кл,  10 лет - 4 кл, 11 лет - 5 кл, 12 лет - 6 кл
а младше сестре 100(2)= = =1*4+0*2+0*1=4 (10) года

Программу надо сформатировать и тогда её структура будет видна лучше.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".

var
  s, k: integer;
label
  met;
begin
  s:=-12;
  k:=90;
  Writeln('s=',s,', k=',k);
  s:=s+10;
  Writeln('s=',s);
met:
  Writeln('Метка met:');
  k:=k+10; Write('k=',k);
  if k<200 then s:=50 else s:=s+k;
  Writeln(', s=',s);
  if k<200 then goto met;
  Writeln('Результат: s=',s)
end.

Результат выполнения программы:
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250