Напишите программу определения простого числа в паскале

Var   i,n,m,s: integer; begin   write('введите число: ');   readln(n);   if n mod 2=0 then       writeln('число не является простым')   else begin       m: =trunc(sqrt(n));       i: =3;       while (n mod i < > 0) and (i< =m) do i: =i+2;       if i< =m then writeln('число не является простым')       else writeln('число является простым')   end end.

Program chisla; uses crt; var i,a,k: integer; begin clrscr; write('введите число: '); readln(a); k: =0; for i: =2 to a div 2 do if a mod i =0 then k: =k+1; if k=0 then write('простое') else writeln('не простое'); readln; end.

Разрешения         глубина                            |4|             |8|           |16|       |24|640х480               |150|      |300|      |600|    |901.4| 800х600                |234.4|  |468.8|  |937.5|  |1406.3| 1024х768              |384|      |768|      |1536|    |2304| 1280х1024            |640|      |1280|     |2560|    |3840| я искал размер изображения, в кбайтах. а то не написано, что надо вписать в таблицу

// PascalABC.NET

begin

 // 1

 var s1 := ReadlnString.Replace(' ','');

 s1.Println;

 // 2

 var m := ReadlnString.MatchValues('[AaBb]');

 if m.Count > 0 then

 begin

   var n := m.Count(c -> c.ToLower = 'a') -

       m.Count(c -> c.ToLower = 'b');

   case Sign(n) of

     -1: Println('В строке больше символов B');

     0: Println('В строке поровну символов A и B');

     1: Println('В строке больше символов A');

   end

 end

 else

   Println('В строке нет символов A или B');

 // 3

 var s2 := 'Казнить, нельзя помиловать';

 var i := Pos(',', s2);

 Delete(s2,i,1);

 i := Pos('я', s2);

 Insert(',', s2, i + 1);

 s2.Print

end.