Как в Паскале в вводимом с клавиатуры числе удалить последние 4 цифры (например, 7654321...

Question

Как в Паскале в вводимом с клавиатуры числе удалить последние 4 цифры (например, 7654321 => 765)?

Answer 1

Можно совсем уж очевидным способом:

a:= 7654321
a:= 7654321 div 10000
writeln(a)