Помогите составить программу на паскаль

Question

1. Упятерить каждую букву в слова уголок 
2. Заменить все буквы "С" на "З" в слове "сосулька".

alexey_n_24 · Accepted Answer

writeln( 'ууууугггггоооооллллллоооооккккк' ); 
writeln( 'зозулька' );

jurii_6 · Answer

1) Str := ''уголок; L := Length(Str); while L > 0 do begin for i := 1 to 4 do Insert(Str[ i], Str, i); end; WriteLn(Str); 
2) в слове «сосулька» нет ни одной буквы «C»!