{$MODE DELPHI}
procedure KOKO(petuhi: array of const);
var
petuh: TVarRec;
begin
for petuh in petuhi do
begin
case petuh.VType of
vtInteger: Writeln('Целый петух: ', petuh.VInteger);
vtExtended: Writeln('Плавающий петух: ', petuh.VExtended^);
vtString: Writeln('Петух в узких стрингах: ', petuh.VString^);
vtAnsiString: Writeln('Петух в стрингах: ', AnsiString(petuh.VAnsiString));
vtWideString: Writeln('Петух в широких стрингах: ', WideString(petuh.VWideString));
vtPChar: Writeln('Сишный петух: ', petuh.VChar);
vtPWideChar: Writeln('Широкий сишный петух: ', petuh.VWideChar);
else
Writeln('Петух типа ', petuh.VType);
end;
end;
end;
begin
KOKO(['petuh', 12])
end.
eyRNT0RFIERFTFBISX0KcHJvY2VkdXJlIEtPS08ocGV0dWhpOiBhcnJheSBvZiBjb25zdCk7CnZhcgogIHBldHVoOiBUVmFyUmVjOwpiZWdpbgogIGZvciBwZXR1aCBpbiBwZXR1aGkgZG8KICAgIGJlZ2luCiAgICAgIGNhc2UgcGV0dWguVlR5cGUgb2YKICAgICAgdnRJbnRlZ2VyOiBXcml0ZWxuKCfQptC10LvRi9C5INC/0LXRgtGD0YU6ICcsIHBldHVoLlZJbnRlZ2VyKTsKICAgICAgdnRFeHRlbmRlZDogV3JpdGVsbign0J/Qu9Cw0LLQsNGO0YnQuNC5INC/0LXRgtGD0YU6ICcsIHBldHVoLlZFeHRlbmRlZF4pOwogICAgICB2dFN0cmluZzogV3JpdGVsbign0J/QtdGC0YPRhSDQsiDRg9C30LrQuNGFINGB0YLRgNC40L3Qs9Cw0YU6ICcsIHBldHVoLlZTdHJpbmdeKTsKICAgICAgdnRBbnNpU3RyaW5nOiBXcml0ZWxuKCfQn9C10YLRg9GFINCyINGB0YLRgNC40L3Qs9Cw0YU6ICcsIEFuc2lTdHJpbmcocGV0dWguVkFuc2lTdHJpbmcpKTsKICAgICAgdnRXaWRlU3RyaW5nOiBXcml0ZWxuKCfQn9C10YLRg9GFINCyINGI0LjRgNC+0LrQuNGFINGB0YLRgNC40L3Qs9Cw0YU6ICcsIFdpZGVTdHJpbmcocGV0dWguVldpZGVTdHJpbmcpKTsKICAgICAgdnRQQ2hhcjogV3JpdGVsbign0KHQuNGI0L3Ri9C5INC/0LXRgtGD0YU6ICcsIHBldHVoLlZDaGFyKTsKICAgICAgdnRQV2lkZUNoYXI6IFdyaXRlbG4oJ9Co0LjRgNC+0LrQuNC5INGB0LjRiNC90YvQuSDQv9C10YLRg9GFOiAnLCBwZXR1aC5WV2lkZUNoYXIpOwogICAgICBlbHNlCiAgICAgICAgV3JpdGVsbign0J/QtdGC0YPRhSDRgtC40L/QsCAnLCBwZXR1aC5WVHlwZSk7CiAgICAgIGVuZDsKICAgIGVuZDsKZW5kOwoKYmVnaW4KICBLT0tPKFsncGV0dWgnLCAxMl0pCmVuZC4K