В паскале дано число, если оно кратно 5,то умножить его на 10. Написать программу.

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

program MultipleByFive;

var
number: integer;

begin
writeln('Enter a number: ');
readln(number);

if number mod 5 = 0 then
begin
number := number * 10;
writeln('The number is a multiple of 5, so it is multiplied by 10: ', number);
end
else
writeln('The number is not a multiple of 5');

end.