Procedure Coordinates( var x, y: integer)

Фактичними параметрами процедури Координати повинні бути змінні цілого типу, яким у результаті виконання процедури надаються значення відповідних координат активної графічної позиції.

Program CoordinatesDemo;
Var
i, x, y: integer;
Begin
For i:=0 to 3 do
Begin
MoveTo( 10*i, 30*i );
Coordinates( x, y );
Write( 'x=', x, 'y=', y )
end
end.