Выполните перевод между указанными единицами измерения, используя приведенные соотношения между величинами - PascalABC.NET

Формулировка задачи:

Выполните перевод между указанными единицами измерения, используя приведенные соотношения между величинами. Решение оформите в виде блок-схемы, псевдокода и запишите на языках программирования PascalABC.NET Условие:

Соотношение между величинами 1 персидский фарсах = 30 стадиям = 150 танабов = 5549 метров. Дано A м. Представьте их в формате: X персидских фарсов Y стадий Z танабов.

Можно предоставить только псевдокод. Спасибо.

Решение задачи: «Выполните перевод между указанными единицами измерения, используя приведенные соотношения между величинами»

Листинг программы

var
    a,x,y,z: integer;
    
begin
writeln('Введите A в метрах: ');
readln(a);
x:=a div 5549;
y:=a mod 5549 div 184;
z:=a mod 5549 mod 184 div 36;
writeln(X,' персидских фарсов ',Y,' стадий ',Z,' танабов.');    
end.

Объяснение кода листинга программы

Введенные переменные a, x, y, z типа integer (целые числа).
Пользователю предлагается ввести значение переменной a в метрах.
Значение переменной a делится на 5549 и результат сохраняется в переменной x.
Оставшееся от деления значение переменной a (по модулю 5549) делится на 184 и результат сохраняется в переменной y.
Оставшееся от деления значение переменной a (по модулю 5549) делится на 184, затем результат делится на 36 и результат сохраняется в переменной z.
Выводится сообщение с значениями переменных x, y, z в формате X персидских фарсов Y стадий Z танабов..