Паскаль!

Задано слово длины 3n (n - натуральное число). Удалить в нем последнюю треть слова, а оставшиеся две трети перевернуть.

var s, s1:string; n, i:integer;

begin

writeln ('Введите слово длиной 3n:');

readln (s);

n:=length (s) div 3;

delete (s, 2*n+1, n);

s1:='';

for i:=1 to 2*n do s1:=s[i]+s1;

writeln (s1);

end.

Пример:

Введите слово длиной 3n:

programma

argorp