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

Uses crt; var s,s1,s2: string; i,k: integer; beginreadln (s); k: =pos (',s) -1; for i: =1 to k dos1: =s1+s[i]; k: =k+2; for i: =k to length (s) dos2: =s2+s[i]; writeln (s2,',s1); end.