помогите записать задачу на паскале. Данное четырёхзначное число читается одинаково слева направо и справа налево.

Видимо, имеется ввиду, что надо ввести число и проверить, что оно 4-значное и что читается одинаково. Ну, скажем, так
var n, n1, n2, n3, n4, f: integer
begin
f := 1; ' f - это флаг проверки, что число такое, как надо
repeat
writeln ('vvedite chislo');
readln (n);
if (n >= 1000) and (n <= 9999) then ' проверили, что число 4-значное
begin
n1 := int (n/1000);
n2 := int ((n - n1)/100);
n3 := int ((n mod 100)/10);
n4 := n mod 10;
if ((n1 := n4 ) and (n2 := n3) then f := 0; ' проверили, что 1-ая цифра равна 4-ой и 2-ая равна 3-ей
end;
else ' ввели не 4-значное число
begin
writeln ('vvedite 4-znachnoe chislo');
end;
until f := 0;
writeln (n)
end.

задача читать его слева направо и справа налево?

тебе бы книжки почитать не помешало. научился бы вопросы задавать нормально что бы люди понимали что ты хочешь вот ответ
Видимо, имеется ввиду, что надо ввести число и проверить, что оно 4-значное и что читается одинаково. Ну, скажем, так
var n, n1, n2, n3, n4, f: integer
begin
f := 1; ' f - это флаг проверки, что число такое, как надо
repeat
writeln ('vvedite chislo');
readln (n);
if (n >= 1000) and (n <= 9999) then ' проверили, что число 4-значное
begin
n1 := int (n/1000);
n2 := int ((n - n1)/100);
n3 := int ((n mod 100)/10);
n4 := n mod 10;
if ((n1 := n4 ) and (n2 := n3) then f := 0; ' проверили, что 1-ая цифра равна 4-ой и 2-ая равна 3-ей
end;
else ' ввели не 4-значное число
begin
writeln ('vvedite 4-znachnoe chislo');
end;
until f := 0;
writeln (n)
end.

ахахха, qwert qwert, понЕмали

тебе бы книжки почитать не помешало. научился бы вопросы задавать нормально что бы люди понемали чё ты хочешь