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. // Конец программы
