Помогите пожалуйста.
Информатика.

(9 класс)

var x, x1, x2: integer;

begin

readln (x);

x1:=x mod 100;

x2:=x div 100;

x:=x1*100+x2;

writeln (x1,'   ',x2);

writeln (x)

end.