Вычисли итог. 1.Бери начальное значение. 2.Прибавь 10 3.ЕСЛИ

1) 5
2) 5+10=15
3) 15 меньше 20 значит добавляем 3. Получится 18.
4) 18+2=20.
5) Конец.
---------------------
1) 20
2) 20+10=30
3) 30 больше 20, значит вычитаем 3. Получится 27.
4) 27+2=29
5) Конец
--------------------------
1) 9
2) 9+10=19
3) 19 меньше 20. 19+3=22.
4) 22+2=24
5) конец.
----------------------
1) 25
2) 25+10=35
3) 35 больше 20. 35-3=32.
4) 32+2=34
5) конец

Var a,b:integer;
  begin
    readln(a);
     a:=a+10;
     if alt;20 then a:=a+3 else a:=a-3;
    a:=a+5
 end.

в паскаль это пишешь и все