Две задачи на 50 баллов . Pascal ABC
Задача первая. Даны цифры двух трёхзначных чисел abc и dxy где a,d - число сотен ;b,x - число десятков ;c,y - число единиц.Получить цифры цисла , которое является суммой двух трехзначных чисел.
Вторая задача.Дано целое число N .Надо определить является ли число палиндромом.

//FPC 2.6.4{1}vari, c: integer;a, b: array[1..3] of byte; beginwriteln ('Цифры первого цисла: ');for i:=1 to 3 do readln (a[i]);writeln ('Цифры второго цисла: ');for i:=1 to 3 do readln (b[i]);write (a[1]+b[1]+10*(a[2]+b[2])+100*(a[3]+b[3]));end.{2}varn, n1, n2: integer;beginwrite ('n ='); readln (n);n1:=n; n2:=0;repeatn2:=n mod 10 + n2*10;n:=n div 10;until n=0;if n2=n1 then write ('Полиндром') else write ('Не полиндром');end.

//PascalABC.Net 3.2{1}beginvar n:=100*readinteger('a =')+10*readinteger('b =')+readinteger('c =')+100*readinteger('d =')+10*readinteger('x =')+readinteger('y =');var s:=n+'';Print(s[1], s[2], s[3], n>999? s[4]:' ')end.{2}beginvar s:=readstring('N =');write (s=s.Inverse? 'Палиндром':'Не палиндром')end.

Vara,b,c,d,x,y:byte;BeginWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);Write('d = ');ReadLn(d);Write('x = ');ReadLn(x);Write('y = ');ReadLn(y);WriteLn((a+d)*100+(b+x)*10+c+y);End.VarA,B,C:integer;BeginWrite('A = ');ReadLn(A);C:=A;While C<>0 do   Begin   B:=B*10+(C mod 10);   C:=C div 10;   End;if A=B then WriteLn(A - ' палиндром')else WriteLn(A,' не является палиндромом')End.