Например
введите число кг: 14000
140 ц
14 кг
1. Начало.
2. Объявление переменных: N целое, C, T вещественные.
3. Ввод числа N кг.
4. C = N/100; T = N/1000
5. Вывод "C центнеров, T тонн"
6. Конец.
На Паскале это будет примерно так:
Program Massa
var N: integer; C, T: real
BEGIN
write ('Vvedite Massu');
readln (N);
C = N/100; T = N/1000;
write ('Massa =; ', C, ' centnerov = ', T, ' tonn');
END.