Дана строка из 30 символов, удалить 1 и 5 символ, заменить все точки на запятые, сделать все символы прописными и вставить в конец точку

//Pascal ABC.NET 3.1 сборка 1219

Var 
s:string;
 c:integer;
begin
 readln(s);
 delete(s,1,1);
 delete(s,4,1);
 while pos('.',s)<>0 do
  begin
   c:=pos('.',s);
   delete(s,c,1);
   insert(',',s,c);
  end;
 s:=s.ToLower+'.';
 writeln(s);
end.

Пример ввода:
СТРОКА из 30 символов. удалить 1 и 5
Пример вывода:
троа из 30 символов, удалить 1 и 5.

#include <iostream>

int main()

{

int n;

float l;

std::cin >> n >> l;

switch (n)

{

case 1:

 std::cout << "Length: " << l / 10;

 break;

case 2:

 std::cout << "Length: " << l * 1000;

 break;

case 3:

 std::cout << "Length: " << l;

 break;

case 4:

 std::cout << "Length: " << l / 1000;

 break;

case 5:

 std::cout << "Length: " << l / 100;

 break;

default:

 break;

}

std::cout << std::endl;

system("pause");

return 0;

}

1.

использовать Робот

алг 3 полоски

нач

нц пока снизу стена

закрасить

влево

кц

нц пока снизу свободно

влево

кц

нц пока слева свободно

закрасить

влево

кц

закрасить

нц пока слева стена

закрасить

вверх

кц

нц пока слева свободно

вверх

кц

нц пока слева стена

закрасить

вверх

кц

кон

2.

использовать Робот

алг

нач

нц пока сверху стена

закрасить

влево

кц

нц пока сверху свободно

влево

кц

нц пока слева свободно

закрасить

влево

кц

закрасить

нц пока слева стена

закрасить

вниз

кц

нц пока слева свободно

вниз

кц

нц пока слева стена

закрасить

вниз

кц

кон

3.

использовать Робот

алг

нач

нц пока слева стена

вверх

кц

влево

вниз

нц пока справа стена

закрасить

вниз

кц

нц пока справа свободно

вправо

кц

нц пока справа стена

закрасить

вниз

кц

кон

4.

использовать Робот

алг

нач

нц пока сверху стена

вправо

кц

вверх

нц пока слева стена

вверх

кц

влево

вниз

нц пока справа стена

вниз

кц

нц пока слева свободно

закрасить

влево

кц

кон

Объяснение: лишние циклы добавлены в случае изменений условия, а именно разной длины стенок и пропастей