Расположите величины в порядке убывания: 1024 бита 1000 байтов 1 бит 1 байт 1 кбайт

1000 байт 1 кбайт 1024 бита 1 байт  1 бит

Var a: integer;   flag: boolean; begin   flag: =false;   write('введите число ');   readln(a);   if a mod 2 = 0 then  begin       writeln('число ',a,' делится на 2');       flag: =true;   end;   if a mod 3 = 0 then begin       writeln('число ',a,' делится на 3');       flag: =true;   end;   if a mod 4 = 0 then  begin       writeln('число ',a,' делится на 4');       flag: =true;   end;   if a mod 5 = 0 then  begin       writeln('число ',a,' делится на 5');       flag: =true;   end;   if not flag then writeln('число ',a,' не делится на 2,3,4,5'); end.

Var n,m: integer; begin write('n = '); readln(n); write('m = '); readln(m); case n of 6: write('шестерка '); 7: write('семерка '); 8: write('восьмерка '); 9: write('девятка '); 10: write('десятка '); 11: write('валет '); 12: write(' '); 13: write('король '); 14: write('туз '); else writeln('ошибка ввода '); end; case m of 1: write('пик'); 2: write('треф'); 3: write('бубен'); 4: write('червей'); else writeln('ошибка ввода '); end; end. пример: n = 10 m = 2 десятка треф