В паскале

1.   Очистить строки s1, s2, s3. Убедиться, что они пустые (для этого можно вывести на экран дисплея длины строк).

2.   С помощью функции copy  из строки s4 выделить фамилию, имя, отчество студента и занести эти значения в строки s1, s2, s3 соответственно.

Результат вывести на экран дисплея
и 2 программа
после 

На основе имеющихся в программе строк сформировать строку s5 вида:
ИВАНОВ И.И.
То есть представить данные в формате:
Фамилия студента и инициалы.
Вывести сформированную строку на экран дисплея.

1)var s1,s2,s3,s4:String;var i:Integer;begins4:= 'Иванов Иван Иванович';i:=Pos(' ',s4);s1:= Copy(s4,1,i);Delete(s4,1,i);i:=Pos(' ',s4);s2:= Copy(s4,1,i);Delete(s4,1,i);s3:=s4;WriteLn('s1 '+s1);WriteLn('s2 '+s2);WriteLn('s3 '+s3);end.2)var s1,s2,s3,s4,s5:String;var i:Integer;begins4:= 'Иванов Иван Иванович';i:=Pos(' ',s4);s1:= Copy(s4,1,i);Delete(s4,1,i);i:=Pos(' ',s4);s2:= Copy(s4,1,i);Delete(s4,1,i);s3:=s4;s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';WriteLn(s5);end.