помогите! программирование!

PascalABC.NET

Как обычно.
Угадай ЯП и напиши за меня программу...

Имя и параметры Процедура или функция Типы параметров Тип возвращаемого значения Действие
Length(s) функция s - string integer возвращает длину строки s
Copy(s,index,count) функция s - string, index и count - integer string возвращает подстроку строки s длины count, начиная с позиции index
Delete(s,index,count) процедура s - string, index и count - integer удаляет в строке s count символов начиная с позиции index
Insert(subs,s,index) процедура s, subs - string, index - integer вставляет подстроку subs в строку s с позиции index
Pos(subs,s) функция s, subs - string integer возвращает позицию первой подстроки subs в строке s (или 0 если подстрока не найдена)
SetLength(s,n) процедура s - string, n - integer устанавливает длину строки s равной n
Str(x,s)
Str(x:n,s)
Str(x:n:m,s) процедура s - string, x - integer, real и n, m - integer преобразует x к строковому представлению (во втором и третьем случаях согласно формату вывода, устанавливаемому n и m) и записывает результат в строку s
Val(s,v,code) процедура s - string, v - integer, real, и code - integer преобразует строку s к числовому представлению и записывает результат в переменную v. Если преобразование возможно, то в переменной code возвращается 0, если невозможно, то в code возвращается ненулевое значение