дано трехзначное число.в нем зачеркнули первую справа цифру и ...

Женя

program Project1;var s,s1,s2:string;beginReadln(s);s1:=copy(s,3,3);s2:=copy(s,1,2);delete(s,1,3);insert(s1,s,1);insert(s2,s,2);Writeln(s);Readlnend.

В принципе можно решить и по другому, но так чисто для меня проще.