program griby;
var k: integer;
begin
readln (k);
writeln ('Мы нашли в лесу',k,' ', ' грибов');
end.
4, 8, 13, 17.
Т. е. круглое число минус один или половина интервала между ними, округлённая вниз.
В русском алфавите всего 33 буквы,следовательно подставим буквы под цифровые значения,получается,что:
1-А
2-Б
...
33-Я
Челнокова-256131516121631
Екатерина-61212061810151
<span>Романовна-181614115163151</span>
Var s:string;
i:integer;
begin
readln(s);
write(s[1] + s[3] + s[2]);
end;