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

var

  n, i: integer;

  s: string;

  isu: boolean;

begin

  write ('введите число: ');

  read (n);

  if (n > = 1000) and (n < = 9999) then

    writeln ('это число четырехзначное')

  else

    writeln ('это число не четырехзначное');

  s : = inttostr (n);

  isu : = true;

  for i : = 1 to length (s) - 1 do begin

    if s [i] < = s [i + 1] then begin

      isu : = false;

      break;

    end;

  end;

  writeln;

  if isu then

    writeln ('цифры расположены в порядке убывания')

  else

    writeln ('цифры не расположены в порядке убывания');

end.

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

"у семи нянек дитя без глаза." - 30 символов(" -2, . -1, пробел-5, букв-22) ⇒

30*2=60 байт

60*8=480 бит