Даны массивы А (5) и В (10)

Program gt; var a,b: array[1… 100]of real; s1,s2: real; n,m,i: longint; beginread (n,m); s1: =0; s2: =0; for i: =1 to n dobeginread (a[i]); s1: =s1+a[i]; end; for i: =1 to m dobeginread (b[i]); s2: =s2+b[i]; end; writeln (s1,',s2); end.