4-ех значное число , удалить из записи числа 0 и 5,оставить порядок прежний.
//PascalABC.Net 3.2 begin var s:=readstring('Введите число: '); while '0' in s do delete (s, 1, pos('0', s)); while '5' in s do delete (s, 1, pos('5', s)); write (s); end.