program foo;
var
s: string[12];
s1: string[4];
begin
s := 'ТЕСТИРОВАНИЕ';
s1 := ( Copy(s, 10, 2), Copy(s, 8, 2) );
write(s1)
end.
program foo;
var
s: string[12];
s1: string[4];
begin
s := 'ТЕСТИРОВАНИЕ';
s1 := ( Copy(s, 10, 2), Copy(s, 8, 2) );
write(s1)
end.