Я бы делала так. var number, sum : int; begin sum := 0; do begin write ('vvedi 4islo: '); readln (number); if ((number>9) and (number mod 5 = 0)) sum := sum + number; end; while (number <> 0); readln; end.
1 группа: рожь, тишь, ложь, рысь составляют существительные 3-его склонения (женского рода, оканчивающиеся на мягкий знак)
2 группа: пшеница, тишина, истина, кошка составляют существительные 1-ого склонения (женского рода с окончанием -а)
Значит:25 лет отслужить в армии.
О стул
ты такой прекрасный и стоишь
не шелохнёшся
как ивушка в земле
Польза они превращаются в перченной и служат удобрением для других растений.