Составьте алгоритм создания презентации по теме "история развития информатики"
2)Составьте алгоритм решения задач по физике ​

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

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

Код ужасно кривой, но рабочий (надеюсь, принцип понятен):
1. Бензин
type
  Benzin=class
    public
    money:double;
    m:integer;
     
end;
  var
    b:Benzin;

begin
  b:=new Benzin;
  b.m:=0;
  b.money:=20;
  while b.money<22.0 do
  begin
  b.money:=b.money*1.02;
  b.m:=b.m+1;
  writeln('Сейчас бензин стоит: ',b.money);
  writeln('Сейчас месяц
  end;
 
end.

2. Вклад
type
  biznes=class
    public
    money:double;
    m:integer;
    time:integer;
     
end;
  var
    b:biznes;

begin
  b:=new biznes;
  writeln('Напишите сумму рублей: ');
  read(b.money);
  writeln('Напишите кол-во месяцев: ');
  read(b.m);
  b.time:=0;
  while b.time<b.m do
  begin
  b.money:=b.money*1.03;
  b.time:=b.time+1;
  writeln('Сейчас сумма: ',b.money);
месяц: ',b.time);
end;
 
 
 
end.

3. Тренировки
type
  sport=class
    public
    first:double;
    day:integer;
    first2:double;
    first3:double;
    first4:double;
    first5:double;
    first6:double;
    first7:double;
    answer:double;
     
end;
  var
    s:sport;

begin
  s:=new sport;
  s.first:=5;
  s.day:=1;
 
  while s.day=1 do
  begin
  s.first2:=s.first*1.20;
  s.day:=s.day+1;
  writeln('Сейчас бегает: ',s.first2);
  writeln('День: ',s.day);
  end;
  while s.day=2 do
  begin
  s.first3:=s.first2*1.20;
  s.day:=s.day+1;
  writeln('Сейчас бегает: ',s.first3);
  writeln('День: ',s.day);
  end;
  while s.day=3 do
  begin
  s.first4:=s.first3*1.20;
  s.day:=s.day+1;
  writeln('Сейчас бегает: ',s.first4);
  writeln('День: ',s.day);
  end;
  while s.day=4 do
  begin
  s.first5:=s.first4*1.20;
  s.day:=s.day+1;
  writeln('Сейчас бегает: ',s.first5);
  writeln('День: ',s.day);
  end;
  while s.day=5 do
  begin
  s.first6:=s.first5*1.20;
  s.day:=s.day+1;
  writeln('Сейчас бегает: ',s.first6);
  writeln('День: ',s.day);
  end;
  while s.day=6 do
  begin
  s.first7:=s.first6*1.20;
  s.day:=s.day+1;
  writeln('Сейчас бегает: ',s.first7);
  writeln('День: ',s.day);
  end;
  while s.day=7 do
  begin
  s.answer:=s.first+s.first2+s.first3+s.first4+s.first5+s.first6+s.first7;
  s.day:=s.day+1;
  writeln('ответ: ',s.answer);
  end;
 
 
 
end.