вообще признак делимости на 2 можно определить проще. Если остаток от деления на 2=0 тогда число делится на 2 нацело иначе нет if (n mod 2)=0 then writeln('Число делится на 2 нацело' ) else writeln('Число не делиться на 2 нацело' );
Однако если по условию задачи признак, такой то уж ничего не пделаешь
Program evenNum;
Uses crt;
var n:real;
begin
clrscr;
write('Введите число n: ');
readln(n);
if ((n/2)<>(n div 2)) then writeln('Число не делится на 2 нацело' )
else writeln('Число делится на 2 нацело' );
readkey;
end.
Var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
if x>y then
begin
v := x;
x := y;
y := v
end;
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
1024000 * 5 = 5120000 Бит
1Бит = 0,000125Кбайт
5120000 * 0,000125 = 640Кбайт