Даны две символьные строки. определить, в какой из них больше символов и насколько. оформить ввиде программы в паскале. , .

// pascalabc.net 3.0, сборка 1088 var   s1,s2: string;   d: integer; begin   write('первая строка: '); readln(s1);   write('вторая строка: '); readln(s2);   d: =length(s1)-length(s2);   if d> 0 then writeln('первая строка длиннее на ',d)   else       if d< 0 then writeln('вторая строка длиннее на ',-d)       else writeln('строки имеют равную длину') end.

Которые предназначены не для одной платформа (к примеру, не только на ПК)

Бъяснение
A=[(-1)**i*i for i in range(15)]
B=[(-1)**i*(-i) for i in range(1,15,3)]
print(A,B)
C=[]
for i in A+B:
if i<0:
C.append(i)