Var g,i:integer;
begin
read(g);
if (g=1) or ((g>20) and (g mod 10=1)) then begin writeln('Мы нашли в лесу ',g,' гриб'); i:=1; end;
if ((g mod 10>1) and (g mod 10<5)) or ((g>21) and (g mod 10>1) and (g mod 10<5)) then begin writeln('Мы нашли в лесу ',g,' гриба'); i:=1; end;
if i=0 then writeln('Мы нашли в лесу ',g,' грибов');
<span>end.</span>
Что помочь?напиши задание и тогда помогу
у меня почему то получается 3 варианта, все проверил и похоже все подходят, странно.
1) <span>Виноградов - Писатель</span>
<span>Поспелов - Певец</span>
<span>Сабиров - Иллюзионист</span>
<span>Шмонов - Художник</span>
2) Виноградов - Иллюзионист
Поспелов - Певец
Сабиров - Художник
Шмонов - Писатель
3) Виноградов - Художник
Поспелов - Певец
Сабиров - Иллюзионист
Шмонов - Писатель
Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x