Напишите алгоритм на языке Паскаль

Пожалуйста, напиши на Паскале *-*

Алгоритм 4
Сим: v, w;
Цел: a, b;
{ Запросить v;
a:= LEN (v);
w:= " ";
Делать от b:=1 до a
{ w:=w+ Часть (v, a+1-b, 1); }
Сообщить w;
}