Задание для практики

[Алексей_2012]

Написать программу,которая вводит строку с клавиатуры:если длина строки равна четному числу,то программа заканчивает свою работу,иначе в конец строки добавляется точка, заранее благодарен

[Hacker19_90]

Readln(str);
if odd(length(str)) then str := str + '.'
else Exit;