Ветвление

[Raphael]

Вводятся целые числа x,y,z. Если (x<=z) и (y<=z), то числа удваиваются. Иначе - вычисляются их модули.

program chisla;
var x,y,z:longint;
write ('vvedite chisla: ');
readln(x,y,z);
if (x<=y) and (y<=z) then
x:=x*2;
y:=y*2;
z:=z*2;
writeln('chisla= ');
readln;
end.

Что не так?

[Roof]

что делает

writeln('chisla= ');

только выводит строчку 'chisla= '; Надо добавить еще сами переменные сюда.
и где код вычисления модулей для "иначе"?

[Roof]

что делает

writeln('chisla= ');

только выводит строчку 'chisla= '; Надо добавить еще сами переменные сюда.
и где код вычисления модулей для "иначе"?