Высказываний. выражение a=《еда вкусна》, 《сегодня тепло》. это решать

Program palidron; var     a, b, c, x, d: integer; begin         writeln('число: ');         readln(a);         b: = a mod 10;         c: = (( a div 10) mod 10);         x: = (( a div 10) div 10);         d: = 100*b+10*c+x;         writeln('палиндром: ',b,c,x);         writeln('произведение числа и палиндрома: ',d*a); end.

Var   ar,ar2: array[1..10] of integer;   i: integer; begin randomize;   writeln('first array: ');   for i: =1 to 10 do     begin;     ar[i]: =random(10)-3;     write(ar[i]: 4);     if ar[i]=0 then ar2[i]: =0;     end;   writeln;   writeln('1-st final array: ');   for i: =1 to 10 do     begin;     write(ar2[i]: 4);     if ar[i]< 0 then ar2[i]: =ar[i];     end;   writeln;   writeln('2-st final array: ');   for i: =1 to 10 do     begin;     write(ar2[i]: 4);     if ar[i]> 0 then ar2[i]: =ar[i];     end;   writeln;   writeln('3-st final array: ');   for i: =1 to 10 do     write(ar2[i]: 4); end.