простейшие задачи из pascal abc

[kyop]

День добрый. Некоторое время назад попался в руки некто паскаль абце, начал выполнять из него задания, и в результате собственно вопрос:

в задание:

дано трехзначное число, вывести число, полученное при перестановкецифр десятков и единиц исходного числа

я выполнял как-то так:

begin
read(ch);
s:=ch div 100;
d:=(ch div 10)-s*10;
e:=ch-s*100-d*10;
i:=s*100+e*10+d;
write(i);
end.

в tp7 задача решается и ответ получается адекватный, но судя по тому что паскаль абце ругается, фырчит и неприемлет решения он ожидал другой способ решения задачи...
если можете подскажите (сам сгораю от любопытства) как еще можно было это все сделать?

прошлый раз я только на экзамене узнал что есть способ получить модуль числакроме того что я использовал (korna:=sqrt(a*a))...

p.s. извиняюсь если гдето уже встречялась такая тема... но... но просматривать 500 страниц даже моего терпения не хватит а кнопку поиска я не нашел (может быть просто не по глазам?)
заранее спасибо.

[VadEr]

var str:string[3];
ch:char;
begin
read(str);
ch := str[3];
str[3] := str[2];
str[2] := ch;
write(str);
end;

[Snejnaya]

в tp7 задача решается и ответ получается адекватный, но судя по тому что паскаль абце ругается, фырчит и неприемлет решения он ожидал другой способ решения задачи...
если можете подскажите (сам сгораю от любопытства) как еще можно было это все сделать?

А как ругается? Что пишет?
Вообще можно еще через остаток от деления попробовать.

read(chislo);
edinici:=chislo mod 10;
desyatki:=(chislo mod 100) div 10;
preobrazovannoe_chislo:=chislo+9*(edinici-desyatki);
writeln(preobrazovannoe_chislo);

Тут решение основано на том, что если было число xyz(=100x+10y+z), то xzy=100x+10z+y=xyz+9*(z-y).

[kyop]

эммн...
Думаю не поверите, сейчас перестал ругаться, может я что то уже сам поменял долгими летними ночами.
Не припомню, но ругался что я пытаюсь присвоить переменной типа integer значение типа real

я объявлял

PHP код:

var ch,s,d,e,i:integer; 


как я понимаю div и mod работают с integer типом...

а может это в нем была ошибка и паскаль абце сам обновился через нет ошибка и пропала (раньше сделал три задания такого типа этим методом ни одно не пошло а сейчас о чудо...)
не знаю(

эммн...
Думаю не поверите, сейчас перестал ругаться, может я что то уже сам поменял долгими летними ночами.
Не припомню, но ругался что я пытаюсь присвоить переменной типа integer значение типа real

я объявлял

var ch,s,d,e,i:integer;

как я понимаю div и mod работают с integer типом...

а может это в нем была ошибка и паскаль абце сам обновился через нет ошибка и пропала (раньше сделал три задания такого типа этим методом ни одно не пошло а сейчас о чудо...)
не знаю(