Напишите, пожалуйста, программу на языке Паскаль!

Question

Дано четырехзначное число. Верно ли, что сумма первой и третьей цифры больше суммы- второй и четвертой

Руслана Лебедева · Accepted Answer

примени эту программу 
program sumcifr; 
uses crt; 
var 
n: longint; 
k,s: integer; 
j:integer; 
begin 
clrscr; 
s:=0; j:=0; 
write('ввести число --> ');readln(n); k:=n; 
while n>0 do begin j:=j+1; 
s:=s+n mod 10; writeln( n mod 10); 
n:=n div 10; 
end; 
writeln('число цифр числа = ',j); 
writeln('сумма цифр числа = ',s); 
 if s=k then writeln('совершенное ') else writeln(' no '); 
readln; 
end.