Вопрос написать программу в Pascal

[temkka]

Нужно удалить каждую вторую цифру вводимого текста. Например, 1234spongebob228patrick -> 13spongebob28patrick. При этом нельзя использовать массивы и тип String, желательно через char

 

[Асхат]

Program delodd; var c:Char; code,i:longint; t:boolean; begin read(c); t:=true; while c<>#13 do begin val(c,i,code); if code=0 then begin if t then begin write(c); t:=false; end else t:=true; end else write(c); read(c); end; end.

 

[Nech]

читаешь символ, если не цифра - просто выводишь, если цифра - увеличиваешь на единичку некое изначально нулевое K и выводишь символ, но только в том случае, если K нечетное