22 раута  ОЧЕНЬ Безотлагательно, ЗАВТРА ПРАКТИЧЕСКУЮ СДАВАТЬ ((( Может ли кто

22 раута ОЧЕНЬ СРОЧНО, ЗАВТРА ПРАКТИЧЕСКУЮ СДАВАТЬ (((
Может ли кто пожалуйста нарисовать блок-схему метода для:
var x: integer;
begin
write('Введите x: ');
readln(x);
write('Числа числа x в обратном порядке: ');
while xlt;gt;0 do
begin
write(x mod 10,' ');
x := x div 10;
end;
end.