Цифры буквы в делфи

[MrMorozko]

Всем доброго времени суток ! Дано два алгоритма
Алгоритм 1. Исходные данные — числа.

• 1. Определить значение по формуле: <результат> = (а • b + с) • 3.
• 2. Если <результат> содержит более двух цифр, сложить первую цифру с последней; в противном случае к первой цифре прибавить число 4.
• 3. К получившемуся числу прибавить модуль разности а и b.
• 4. Ввести полученный результат.

Алгоритм 2. Исходные данные — строковые константы.

1. 1. В строку <результат> в качестве первого символа записать букву, которая в алфавите следует за буквой, являющейся первым символом первого слова на экране; если это буква «я», записать «а». ,
2. 2. В качестве второго символа записать букву, которая в алфавите предшествует букве, являющейся последним символом второго слова на экране; если это буква «а», записать «я».
3. 3. Если третье слово содержит нечетное количество букв, то в качестве третьего символа записать букву, которая в алфавите следует за буквой, являющей средним символом третьего слова; если это буква «я», записать «а». Если же третье слово содержит четное количество символов, то в качестве третьего символа записать букву, которая в алфавите предшествует букве, являющейся первым из двух средних символов третьего слова; если это буква «а», записать «я».
4. 4. В качестве четвертого символа записать букву, которая в алфавите стоит на месте, соответствующем сумме количеств символов в первом и втором словах; если эта сумма больше 33, найти и использовать в качестве номера позиции искомой буквы в алфавите остаток от деления указанной суммы на 33.
5. 5. Ввести полученную строку.

немного я такие схемы решения непонимаю по это прошу написать мне кодинг только решения Delphi Заранее спасибо!

[fbus]

стучись в аську я сделаю

[Ghost of Night]

1)

var
 a,b,c:Integer;
 rezult:String
begin
 a:=StrToInt(Edit1.Text);
 b:=StrToInt(Edit2.Text);
 c:=StrToInt(Edit3.Text);
 rezult:=IntToStr((a * b + c) * 3);
 if length(rezult)>2 then rezult:=IntToStr(StrToInt(rezult[1]) + StrToInt(rezult[length(rezult)]))
 else
  rezult:=IntToStr(StrToInt(rezult[1])+4);
 rezult:=IntToStr(StrToInt(rezult)+abs(a-b));
 Label1.Caption:=rezult;