С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая выводит сначала фамилию,а затем имя.

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