Даны две строки произвольного размера сформировать третью взяв из первой…

Uses crt; var s1,s2,s3: string; i: integer; beginwriteln ('Введите первую строку.'); readln (s1); writeln ('Введите вторую строку.'); readln (s2); for i: =1 to min (length (s1) ,length (s2) doif i mod 2<>0 thens3: =concat (s3,s2[i]) elses3: =concat (s3,s1[i]); writeln (s3); end.