fork download
copy 
  1. {$MODE DELPHI}
  2. procedure KOKO(petuhi: array of Variant);
  3. var
  4.   i: integer;
  5.   key, value: Variant;
  6. begin
  7.   i := Low(petuhi);
  8.  
  9.   while(i < High(petuhi)) do
  10.     begin
  11.       key := petuhi[i];
  12.       value := petuhi[i + 1];
  13.       Writeln('Ключ = ', key, ', значение = ', value);
  14.       Inc(i, 2)
  15.     end;
  16. end;
  17.  
  18. begin
  19.   KOKO(['petuh', 'Петя', 'iq', 12])
  20. end.
  21.  
Success #stdin #stdout 0s 4388KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Ключ = petuh, значение = Петя
Ключ = iq, значение = 12
https://ideone.com/uWZCf5
language:
Pascal (fpc 3.0.4)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!