С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая выводит сначала фамилию,а затем имя.
program pr; var s,n:string; c:char; i:integer; begin writeln('Введите имя и фамилию в одной строке'); readln (s); i:=1; while s[i]<>' ' do i:=i+1; n:=copy(s,1,i-1); writeln(n); readln; end.