Задача 2. Дано четырехзначное число. Найти число, полученное перестановкой второй и третьей цифры заданного числа. (Например, 4567 ---> 4657)

Все чудесно, только функция IntToStr в традиционном Паскале отсутствует - она из Delphi перекочевала в Pascal.ABC

да? жаль) доброе утро)) буду косяк исправлять

"традиционный вариант" неожиданный, если честно. спасибо.

var  n: integer;   t, t1: string[4];begin  writeln('введите число --> ');  read(n);  Str(n,t);  t1 := t[1] + t[3] + t[2] + t[4];  writeln('Ответ ', t, ' --> ', t1)end.