Пожалуйста посчитайте с решением блок-схемы, напишите письменно. Никак не могу решить

program z1;

var

 x, y: integer;

begin

 readln(x);

 readln(y);

 if (x < y) then

   x := y * 5;

 writeln('X = ', x);

end.

program z1;  // Название программы

var

 x, y: integer;  // Целочисленные переменные x и y

begin  // Начало программы

 readln(x);  // Считываем x с клавиатуры

 readln(y);  // Считываем y с клавиатуры

 if (x < y) then  // Если x < y, тогда

   x := y * 5;  // x = y * 5

 writeln('X = ', x);  // Вывод а

end. // Конец программы