лабораторная работа / 3-4 ФИО / фио

program Project1;

var

st: string[100];

Fam: string[100];

Im: string[100];

Ot: string[100];

i,j,k,q,y,z: byte;

begin

WriteLn('Vvedite familiy, imy i otchestvo');

Read(st);

Fam:='';

Im:='';

Ot:='';

y:=0;

for i:=1 to length(st) do

y:= pos(' ',st);

for i:=1 to length(st) do

begin

Fam := Fam + st[i];

if st[i]=' ' then begin

for j:= i+1 to length(st) do

begin

Im := Im + st[j];

if st[j]= ' ' then

for z:= j+1 to length(st) do

Ot := Ot + st[z];

end;

end;

end;

Delete(Fam,y+1,length(Fam)-y);

Delete(Im,2,length(Im)-1);

Delete(Ot,2,Length(Ot)-1);

WriteLn;

WriteLn(Fam ,Im + '.' , ' ' , Ot + '.');

Readln(q);

end.