Составьте программу определяющую, является ли число x простым

Uses crt; var a : real; p : boolean; i : integer; procedure haltproc; begin writeln('неверные данные'); writeln('a> =2'); readln; halt; end; begin clrscr; write('a='); readln(a); if a< 2 then haltproc; if a=2 then begin writeln2('простое'); readln; halt; end; p: =true; for i: =2 to trunc(a-1) do if a/i=trunc(a/i) then p: =false; if p=true then write('простое') else write('не простое'); readln; end.

program fantscrin;

  const n = 10;

  var a: array [1..n] of integer;

      i,min,max: integer;

begin

  for i: =1 to n do

    a[i]: = random(20);

  for i: =1 to n do

    write(a[i], '   ');

   

  min: =a[1];

  for i: =1 to n do

    if (a[i]< min) then min: =a[i];

 

  max: =a[1];

  for i: =1 to n do

    if (a[i]> max) then max: =a[i];

 

   

  writeln('');

  writeln(min+max);

end.

1. это разъемы которые служат для подключения чего либо к самому компьютеру.2. слот расширения - разъём на материнской плате соединенный с системной шиной, который позволяет подключать к нему дополнительные платы (карты расширения).3. принцип открытой архитектуры заключается в следующем: * регламентируются и стандартизируются только описание принципа действия компьютера и его конфигурация (определённая совокупность аппаратных средств и соединений между ними).4. сформировать представление о структурной схеме компьютера; объяснить назначение и характеристики системной шины; объяснить назначение портов; определить некоторые важные принципы работы современного компьютера. опорные понятия: аппаратное обеспечение компьютера; назначение и характеристики отдельных устройств компьютера; разрядность; производительность. новые понятия: структурная схема компьютера; системная шина; системный блок; системная плата; параллельный порт; последовательный порт; принцип программного ; принцип открытой архитектуры.