Ввести три числа и определить, верно ли, что они вводились в порядке возрастания.

Var one,two,three: integer; begin      write('введите первое число число: ');       readln(one);     write('введите второе число число: ');       readln(two);       write('введите третье число число: ');       readln(three);   if (one < two) and (two < three) then      writeln('числа введены в порядке возрастания')    else      writeln('числа не введены в порядке возрастания'); end.

Var i,k,j: integer; begin readln(i,k,j); if ( (i< k) and (k< j)) then write ('true') else writeln('false'); end.

1. количество ядер процессора  2. частота процессора и частота системной шины (fsb) процессора  3. объем и количество кэш-памяти процессора (cpu)4. совпадение частоты системной шины cpu и материнской платы5. частота оперативной памяти (ram) и частота шины памяти материнской платы  6. объем оперативной памяти  7. используемый на материнской плате чипсет (intel, via, sis, nvidia, ati/amd)8. используемая графическая подсистема – встроенная в материнскую плату или дискретная  9. тип интерфейса винчестера (hdd) – параллельный ide или последовательные sata и sata-210. кэш винчестера

и это еще не все, можно продолжать. 

 

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.