Function Direction : integer

Залежно від орієнтації робота функція повертає одне з таких значень:
0 - робот направлений вниз (на південь);
1 - робот направлений вправо (на схід);
2 - робот направлений вверх (на північ);
3 - робот направлений вліво (на захід);

Поточні координати робота можна визначити за допомогою звертання до процедури ПозиціяРобота:

Procedure RobotCoord ( var x, y : integer )

Фактичними параметрами повинні бути змінні цілого типу. Після виконання процедури змінній x присвоюється значення номера стовпця, а змінній y - номера рядка, на перетині яких знаходиться робот. Нумерація рядків ведеться зверху вниз, а нумерація стовпців - зліва направо.

Program CoordDir;
var
x,y: integer;
Begin
RobotCoord(x,y);
WriteLn( 'Робот перебуває на перетині ', x,
'-го стовпця та ', y, '-го рядка' );
Write( 'і напрямлений на ' );
Case Direction of
0: Write( 'південь' );
1: Write( 'схід' );
2: Write( 'північ' );
3: Write( 'захід' );
end
end.