Нужно написать программу в турбо паскале: удалите две последние буквы в введенном слове .

Var s:string;
begin
readln(s);
delete(s,length(s)-1,2);
writeln(s);
end.

Пример:
programma
program