Вводится с клавиатуры шестизначное число. написать программу которая разбивает число на пополам и складывает получившиеся числа. пример работы: введите число: 145937 результат: 145+937

Var x,y,z: integer;
Begin
writeln('Введи шестизначное число');
readln (x);
y:= x div 1000;
z:= x mod 1000;
writeln(y+z);
readln;
End.