Люди ! дано натуральное число. выяснить является ли оно простым. паскаль если можно с пояснениями

Var     x,i,f: integer; begin f: =1; //признак, определяющий простоту числа write('введите число: '); readln(x); for i: =2 to x-1 do //перебираем числа   if x mod i=0 then f: =0; //если число делится без остатки, значит оно непростое if f=1 then     writeln('это простое число')     else writeln('это непростое число') end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! procedure input(var a: array of integer); begin   a: =readarrinteger('вводите через пробел рост в см: ',a.length) end; procedure mymax(a: array of integer; var mr: integer); begin   mr: =a.max end; procedure kmax(a: array of integer; mx: integer; var km: integer); begin   km: =a.where(t-> t=mx).count end; begin   var n: =readinteger('количество учеников: ');   var r: =new integer[n];   input(r);   var maxr,kol: integer;   mymax(r,maxr);   kmax(r,maxr,kol);   writeln('максимальный рост ',maxr,' имеют ',kol,' чел.') end. пример количество учеников: 5 вводите через пробел рост в см: 170 168 171 159 171 максимальный рост 171 имеют 2 чел. на самом деле, это - прекрасный пример того, как не нужно использовать процедуры. потому что без процедур эта же решается гораздо короче, занимает меньше памяти и быстрее работает. ниже - текст такой программы в качестве иллюстрации написанного. begin   var a: =readarrinteger('вводите через пробел рост в см: ',           readinteger('количество учеников: '));   var maxr: =a.max;   var kol: =a.where(t-> t=maxr).count;   writeln('максимальный рост ',maxr,' имеют ',kol,' чел.') end.

Дано: v= 32768 бит/с. t= 48c. i= 2 байт k= 128 найти: n определим информационный объем переданного файла i₁=v*t, где v - скорость передачи, t- время передачи i₁= 32768*48= 1572864 бит  1572864 бит/8= 196608 байт определим информационный объем одной страницы: i₂=i*k, где i - количество байт на один символ, k- количество символов на одной странице i₂=2*128*=256 байт тогда разделив общий объем файла на объем одной страницы получим искомое количество страниц: n=i₁/i₂= 196608/256= 768 ответ: 768 страниц.