program Project1;
var
S : String;
K, Num1, Num2 : Integer;
begin
repeat
Writeln('Задайте целое число:');
Readln(K);
S := 'Мы собрали ' + IntToStr(K) + ' ';
Num1 := K mod 10;
K := K div 10;
Num2 := K mod 10;
case Num1 of
1 :
begin
if Num2 = 1 then S := S + 'грибов'
else S := S + 'гриб';
end;
2..4 :
begin
if Num2 = 1 then S := S + 'грибов'
else S := S + 'гриба';
end;
else
S := S + 'грибов';
end;
S := S + ' в лесу.';
Writeln('Результат:');
Writeln(S);
Writeln('Повторить - Enter. Выход - любой символ + Enter.');
Readln(S);
until S <> '';
end
Внимание! Если программа не работает, обновите версию!
function HexToDec(n:string):string;
begin
var s:='0123456789ABCDEF';
var (p,pa):=(0,1);
foreach var c in n.Reverse do begin
p+=pa*(Pos(c,s)-1);
pa*=16
end;
Result:=p.ToString
end;
begin
var s:=ReadlnString('Введите 16-ричное число:');
HexToDec(s).Println
end.