var
k: integer;
begin
readln(k);
if k< 0 then
writeln('не может такого быть')
else
begin
write('мы нашли в лесу ',k,' гриб');
if (k mod 100 in [5..19]) then
writeln('ов')
else if (k mod 10 in [2..4]) then
writeln('а')
else if (k mod 10=1) then
writeln
else
writeln('ов');
end;
end.
a:array of integer;
i,b,c,max:integer;
BEGIN
write('Введите размер массива - ');
readln(c);
setlength(a,c);
writeln('Введите элементы массива - ');
max:=0;
b:=1;
for i:=0 to c-1 do begin
read(a[i]);
if a[i] > a[max] then max:=i;
if a[i] mod 2 <> 0 then b:=b*a[i];
end;
a[max]:=b;
for i:=0 to c-1 do write(a[i]:3);
END.