Ввести пятизначное число (граммы – например,45381). Распечатать в виде ___кг __г (45 кг 381 г) Здесь цикл не нужен. ПАСКАЛЬ

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

program ProgramName;
var
number, kg, g: integer;
begin
write('Введите пятизначное число: ');
readln(number);

kg := number div 1000;
g := number mod 1000;

writeln('Результат: ', kg, ' кг ', g, ' г');
end.