составить алгоритм транспортёра

var n, s: integer;
begin
n := 4;
s := 0;
while n <= 13 do
begin
s := s + 15;
n := n + 1
end;
write(s)
end.

Мне необходимо составить алгоритм каждой буквы : н,у,р,л,а,н
Примерно алгоритм выглядит вот так- Поднять перо. Сместиться в точку.Опустить перо.Сместиться на вектор.
Составьте хотя бы алгоритм буквы Н

2)Составить алгоритм кипячения воды а чайнике с помощью электроплиты.

Алгоритм выглядит примерно так- Сместиться в точку ....
Опустить перо
Сместиться на вектор ...

Моё имя-Нурлан
Пожалуйста кто сможет напишите ) Заранее большое спасибо вам

натуральных чисел, не превышающих заданного натурального числа N.
Проверьте алгоритм трассировкой. Напишите программу на Паскале.