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.
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.
Поделитесь своими знаниями, ответьте на вопрос: