а мне казалось, с помощью case это реализовать как то лучше будет, нет?)
А если считать, что введенное N натуральное число может быть любым... их же бесконечное множество) типа для любого натурального N найдется натуральное больше него
case N[1]
of '1', '21', '31', : Result := 'Утка';
'2','3','4': Result := 'Утки';
else Result := 'Уток';
|