Паскаль.

[Юрик193]

Ребят, прошу написать полностью прог-у, т.к в паскале ваще не алё)
Препод сказала, что задача не сложная.

Задача. Дана строка символов оканчивающаяся точкой; удалить из неё все буквы "q".

Буду оч признателен)

[DoDge_VipeR]

var s:string;
i:integer;
begin
readln(s);
i:=1;
while s[i]<>'.' do
begin
if s[i]='q' then delete(s,i,1)
else inc(i);
end;
writeln(s);
readln;
end.

[Юрик193]

сорри, мб глупый вопрос, но вот там всякие begin и т.д выше писать надо?=)

[Юрик193]

воо)
спасибо большое )

и вопросик маленький, что обозначает вот эта команда - else inc(i); ?

[Юрик193]

на строчке i:=1 пишет "Unknown Identifier".