В трехзначном числе х зачеркнули 1 цифру.Когда оставшиеся число умножили на 10,а произведение сложили с первой цифрой числа х,то получилось 564.Найти х.В Pasсal.

Предыдущий
вопрос Следующий
вопрос

program FindNumber;
var
x, num, firstDigit, result: integer;
begin
for x := 100 to 999 do
begin
firstDigit := x div 100;
num := x mod 10 + (x div 100 * 10);
result := num * 10 + firstDigit;
if result = 564 then
begin
writeln('Number x is: ', x);
break;
end;
end;
end.