Напишите программы, 1) организовать ввод своей фамилии, имени, отчества в трех строковых переменных. при склейки получить новую переменную (из трех введенных) и найти длину этой переменной. 2) при функции удаления составить из слова «вертикаль» слово «ветер».

Var s,t,s1,s2,s3:string; p,i:integer;begint:='вертикаль';s1:=t;s2:=t; s3:=t;Delete(s1,3,9);Delete(s2,1,3);Delete(s2,2,5);Delete(s3,1,1);Delete(s3,3,6);write(s1,s2,s3);end.