کمک ! کمک ! فقط 3 روز وقت دارم ... خواهشا کمک کنید

[aghaey2]

سلام به همه ی دوستان . لطفا کمک کنید من فقط 3روز وقت دارم . هیشکی رو پیدا نکردم که بتونه کمکم کنه خواهشا اگه شما میتونید دریغ نکنید من 3روز دیگه امتحان دارم و نیاز دارم به این پروژه. تو محیط پاسکاله ها .

2 عدد 50 رقمی رو از ورودی بخونه و در هم ضرب کنه و حاصل رو چاپ کنه.
کسی میتونه کمکم کنه ؟ تاکید میکنم تو محیط پاسکال میخوامش. اگه کسی میتونه حل کنه منو ادد کنه مرسی. id= a.intent

[aghaey2]

2 adad 50 raghami o az voroodi bekhone dar ham zarb kone va hasel o chap kone, ,ba estefade az zir barnameha,araye va reshteha banevisid. Ma az ketabe barname nevic pascal algoritm,reshteha,zirbarnameha,rekordha o khondim.pas in barname bayad ba estefade az ina neveshte beshe,hala har kodom ke lazem shod.faghat jori ke kheyli pishrafte nabashe ke moshakhas she khodam naneveshtam.shoma mesle mesalaye paeen faghat matne barnamaro vasam befrestid man khodam too pascal minevisam.faghat zodtar. MERC
mesal1 :
matrisi o az voroodi bekhone va taranahade oon o dar matrise AT gharar bede.
var
A:array[1..5,1..6] of real;
begin
for i:=1 to 5 do
for j:=1 to 6 do read (A[i,j]);
At(j,i):=A[i,j];
for j:=1 to 6 do
begin
write(' | ');
for i:=1 to 5 do write At([i,j]);
writln('|');
end;
end.
mesal 2 :
barnamee ke 2 arraye yek bodi be toole 5 ra az voroodi khande va dar ham edgham konad va natije ra chap konad
program meng (input,output)
const m=5 n=10;
tyep
X:array[100m] of real;
Y:array [100n] of real;
var A,B:X C:Y I.J.K:integer;
begin
for i:=1 to m do read (A[i]);
for j:=1 to m do read (B[j]);
i:=1;
j:=1;
k:=1;
repeat
if A[i]<B[j] then bagin
C[k]:=A[i];
i:=i+1;
end;
else bagin
C[k]:=B[j];
j:=j+1;
end;
k:=k+1;
until (i<m) or (j<m);
if j<m then for l:=i to m do
C[m+l]:=A[l];
else l:=j then for k:=j to m do C[m+l]:=B[l];
write (c);
.
.
.
.
.
.
.
end.