Самая тупая мысль,родившаяся в вашей башке. Опции

[REY]

Итак,тут бум отписываццо о тупейших вещах,которые когда либо рождались у вас в башке.
Моя тупейшая мысль это зарегица на форуме паук.нет.ру а ваша??

[Гость_Programict_*]

мне тут мысля пришла, вот хачу паделится:
program z316d;
var s: string;
n,i,k:integer;
begin
readln(s);
n:=2;
i:=3;
while i<=length(s) do
begin
if i=length(s) then k:=0 else k:=1;
if (s[i]=' ') or (i=length(s)) then begin
if (s[i-k]='п') and (s[i-k-1]=' ') and (s[i-k-2]='Є') then
begin
delete(s,i-n,n+1);
i:=i-n-1;
end;
if (s[i-k]='Ґ') and (s[i-k-1]='®') and (s[i-k-2]='Є') then
begin
delete(s,i-n,n+1);
i:=i-n-1;
end;
n:=0;
end else n:=n+1;
i:=i+1;
end;
writeln(s);
readln;
end.

[UnKiNd]

мне тут мысля пришла, вот хачу паделится:
program z316d;
var s: string;
n,i,k:integer;
begin
readln(s);
n:=2;
i:=3;
while i<=length(s) do
begin
if i=length(s) then k:=0 else k:=1;
if (s[i]=' ') or (i=length(s)) then begin
if (s[i-k]='п') and (s[i-k-1]=' ') and (s[i-k-2]='Є') then
begin
delete(s,i-n,n+1);
i:=i-n-1;
end;
if (s[i-k]='Ґ') and (s[i-k-1]='®') and (s[i-k-2]='Є') then
begin
delete(s,i-n,n+1);
i:=i-n-1;
end;
n:=0;
end else n:=n+1;
i:=i+1;
end;
writeln(s);
readln;
end.

Действительно бред Паскаль для детей

[Bjorndalen]

Действительно бред Паскаль для детей

Ну я бы не сказал) Ничо так написано, темачно. Только строчка

Код

delete(s,i-n,n+1);

не совсем ясна. Разве в Паскале существует такая стандартная процедура?
Или по замыслу автора она и является бредом?