Напишите программу с использованием символьных величин и строк символов:

На «4»: Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы.

Объяснение:

program N_5;

var stroka1,stroka2,stroka3:string;

begin

Stroka1:='информатика';

Stroka2:='мать';

Stroka3:='ель';

delete(stroka1,1,5);

delete(stroka2,4,1);

delete(stroka3,2,2);

Stroka2:= Stroka2+ Stroka3;

stroka1:=stroka2+stroka1;

writeln(stroka1);

end.