Pascal. Составить программу которая позволяет вывести трех значное число, если первая цифра числа четное,то поменять местами последнию и среднию,иначе поменять первую и среднию. За эту задачу дам 15 баллов.

var S,a,q:integer;b,c:real;beginreadln(S); // вводим трёхзначное числоa:= (S div 100) mod 2; // получаем 1 цифруif a = 0  then begin // проверяем  b:= S div 10;    b:= b - S div 100 * 10 ; // "вытаскиваем" среднюю цифру  c:= S mod 10; // берём последнюю  writeln(S div 100,c,b);  endelse begin  b:= S div 10;    b:= b - S div 100 * 10 ; // повторяем со средней цифрой  c:= S mod 10; // берём последнюю (также повторяем)  writeln(b,S div 100,c);  end;end.Наверно можно было и попроще)))))