@некрон

Напишите на языке Pascal программу multnum, умножающую два целых числа произвольной длинны, представленных однонаправленными связаными списками.

Добавлено через 48 секунд
что сдесь не так?

program multnum;
type pe=^element1;
element1=record
x:integer;
nexte;
end;
var q,ch1,ch2e;
l1,l2,i,n1,n2,w:integer;
kon:longint;
s1,s2,sq:string;
begin
randomize;
ch1:=nil;
ch2:=nil;
l1:=random(10)+1;
l2:=random(10)+1;
new(ch1);{sozdanie spiskov}
ch1^.x:=random(8)+1;
ch1^.next:=nil;
new(ch2);
ch2^.x:=random(8)+1;
ch2^.next:=nil;
for i:=1 to l1 do{zapolnenie spiskov}
begin
new(q);
q^.x:=random(8)+1;
q^.next:=ch1;
ch1:=q;
end;
for i:=1 to l2 do
begin
new(q);
q^.x:=random(8)+1;
q^.next:=ch2;
ch2:=q;
end;
for i:=1 to l1 do{chtenie dannyh iz spiskov}
begin
str(ch1^.x,sq);
s1:=s1+sq;
ch1:=ch1^.next;
end;
for i:=1 to l2 do
begin
str(ch2^.x,sq);
s2:=s2+sq;
ch2:=ch2^.next;
end;
val(s1,n1,w);
val(s2,n2,w);
kon:=n1*n2;
writeln(abs(kon));
end.

0