Дано некоторое натуральное число сн. вывести на печать ближайшее к нему простое число. pascal

Function simp(var n: integer): boolean;
var i,j: integer;
    priz: boolean;
begin
  priz:=true;  i:=2;
  j:=round(sqrt(n));
  repeat
    if (n mod i)=0 then
    begin
      priz:=false;
      break;
    end;
    i:=i+1;
  until i>j;
  simp:=priz;
end;
{ основная программа }
 var n: integer;
begin
  write('CH = ');  readln(n);
  n:=n+1;
  while not simp(n) do n:=n+1;
  writeln('наименьшее простое число: ',n);
end.

1. 2. Имеются четыре основные составляющие информационной функции человека: прием (ввод) информации; запоминание информации (сохранение в памяти) ; процесс мышления (обработка информации) ; передача (вывод) информации. Компьютер включает в себя устройства, выполняющие эти функции мыслящего человека: устройства ввода; устройства запоминания — память; устройство обработки — процессор; устройства вывода.
3. В ходе работы компьютера информация через устройства ввода попадает в память. Затем процессор извлекает из памяти обрабатываемую информацию, работает с ней и помещает в нее результаты обработки. Полученные результаты через устройства вывода сообщаются человеку.
4.последовательность инструкций, предназначенная для исполненияустройством управления вычислительной машины. Программа — один из компонентов программногообеспечения. 
5.Главное отличие данных от программы в том, что первые являются носителем информационной нагрузки — файлами. Программа — средство создания, а также воспроизводства этой информационной нагрузки (в том виде, в котором она нужна пользователю).

Задание 1:

ответ: 150

a = ((35 - 5) / 6) * (28 + ((35 - 5)/6) -3) = 5 * (25 + 5) = 150Задание 2:

ответ: a=9, b=86

b = ((7 * 11 + 4) div 10) + 6 = (81 div 10) + 6 = 86a = (86 mod 10) + 3 = 6 + 3 = 9Задание 3:

ответ: 12

a = 15 - 6 * 2 = 33>15 ? нет => c = 15 - 3 = 12Задание 4:

ответ: 173

for k:=7 to 14 do  s:=s+2*ks = 5 + 2*(7+8+9+10+11+12+13+14) = 173Задание 5А:НачалоВвод a, ba>b ?если да, то Вывод b*2если нет, то Вывод a*2КонецЗадание 5Б:var a, b: integer;begin    readln(a,b);    if a>b then writeln(b*2) else writeln(a*2);end.