СРОЧНО!В паскале) помогите пожалуйста) Надо ввести имя фамилию и отчество с клавиатуры...

Question

СРОЧНО!В паскале) помогите пожалуйста) Надо ввести имя фамилию и отчество с клавиатуры затем сделать так чтобы программа вывела отдельно в строчку фамилию отдельно имя и отдельно отчество, а потом ещё и инициалы ОЧЕНЬ НАДО)

Answer 1

Program Nadya18081998;
const n=20;
var
 f,i,o,ns:string;
begin
  write('Введите фамилию ');
  readln(f);
  write('Введите имя ');
  readln(i);
  write('Введите отчество ');
  readln(o);
  writeln('**********************************');
  writeln(' Фамилия: ',f);
  writeln('     Имя: ',i);
  writeln('Отчество: ',o);
  writeln('Инициалы: ',Copy(i,1,1)+Copy(o,1,1));
  writeln('**********************************');
end.