program Lesson10_Program1;

var
number, firstDigit, secondDigit, result: integer;

begin
writeln('Enter a two-digit number: ');
readln(number);

firstDigit := number div 10; // находим первую цифру
secondDigit := number mod 10; // находим вторую цифру

if secondDigit <> 0 then
begin
result := firstDigit div secondDigit; // находим частное первой цифры на вторую
writeln('The result is: ', result);
end
else
writeln('Cannot divide by zero. Please enter a different number for the second digit.');
end.