Информатикадан сөздерін құрайтын программа құру керек?

Question

А:"кітапхана", В:"компьютер" жолдық шамалары берілген. Стандартты функцияларды қолданып "кітап", "ана","танк","парта","тартпа","рақат","торт" сөздерін құрайтын программа құру керек

Answer 1

Program 1;

Var a,k,p: string, I:integer;

Begin

A:=кітапхана';

Р:=copy(a,3,2)+copy(a,8,1)+copy(a,1,1);

I:=length (p);

Delete(a,6,4);

Insert('mop',a,6);

Writeln(1);

Writeln(p);

Writeln(a);

End.