program foo;
var
s: string[12];
s1: string[4];
begin
s := 'ТЕСТИРОВАНИЕ';
s1 := XXXXX( Copy(s, 10, 2), Copy(s, 8, 2) );
write(s1)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program foo;
var
s: string[12];
s1: string[4];
begin
s := 'ТЕСТИРОВАНИЕ';
s1 := XXXXX( Copy(s, 10, 2), Copy(s, 8, 2) );
write(s1)
end.