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

Question

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

Answer 1

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

Пример:
programma
program