Вводится натуральное число : если это число четырехзначное то выяснить является ли последовательность цифр от старшего к младшему арифметич последовательностью; если нет то увеличить число в 2 раза
var n:integer; a,b,c,d:integer; x,y,z:real; begin read(n); if n>999 then begin a:=n div 1000; b:=n mod 1000 div 100; c:=n mod 100 div 10; d:=n mod 10 div 1; x:=(a-b); y:=(b-c); z:=(c-d); if a>b then write(n*2) else if (x=y) and (y=z) then write ('Arif posledovatelnost'); if (x<>y) and (y<>z) then write(n*2); end else write('Chislo ne 4 znachnoe'); end.
var n:integer;
a,b,c,d:integer; x,y,z:real;
begin
read(n);
if n>999 then begin
a:=n div 1000;
b:=n mod 1000 div 100;
c:=n mod 100 div 10;
d:=n mod 10 div 1;
x:=(a-b);
y:=(b-c);
z:=(c-d);
if a>b then write(n*2) else if (x=y) and (y=z) then write ('Arif posledovatelnost');
if (x<>y) and (y<>z) then write(n*2);
end
else write('Chislo ne 4 znachnoe');
end.