SaveText.Ru

H
  1. Var s, name, otch,fam:string;
  2.      n:integer;
  3.      begin
  4.      writeLn('Введите фамилию, имя и отчество:');
  5.      readln(s);
  6.      n := Pos(' ', s);
  7.      fam := Copy(s, 1, n-1);
  8.      Delete(s, 1, n);
  9.      n := Pos(' ', s);
  10.      name := Copy(s, 1, n-1);
  11.      Delete(s, 1, n);
  12.      otch:=s;
  13.      s:=name[1] + '.' + otch[1] + '. ' + fam;
  14.      writeLn(s);
  15.      end.

Share with your friends:

Print