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

Программа: var n,k1,k2,k3,k4:integer; begin write('n = '); readln(n); k1:=n div 1000; k2:=n div 100 mod 10; k3:=n div 10 mod 10; k4:=n mod 10; if n mod 2 =0  then writeln('Произведение цифр = ',k1*k2*k3*k4)  else writeln('Число наоборот = ',k4*1000+k3*100+k2*10+k1); end. Пример 1: n = 5324 Произведение цифр = 120 Пример 2: n = 6387 Число наоборот = 7836

var  a,s,q,w,e,r : integer;begin  readln(a);  q := a mod 10;  w := a mod 100 div 10;  e := a div 100 mod 10;  r := a div 1000;  if a mod 2 = 0 then  begin    s := r * e * w * q;    write('Произведение цифр : ', s);  end  else write('Перевёрнутое число : ',q,w,e,r);end.