заданы 3 числа.Вычислить сумму простых из них. Для проверки является ли число кратным 9 использовать функцию. (НЕ работает(()

[Лейля]

заданы 3 числа.Вычислить сумму простых из них. Для проверки является ли число кратным 9 использовать функцию. (НЕ работает(()

Var
a,b,s,c:integer;
m:set of byte;
  function Krat (var x1:byte):integer;
  begin
  
  if (x1 mod 9=0) then
  Writeln('делится')
  else
  
  Write('не делится');
  
   end;
   
   procedure Vvod( var x1:byte);
   begin
    Read(x1);
   end;
   
 Begin
 Write('первое число= ');
 Vvod(a);
 Krat(a);
 Write('второе число = ');
 Vvod(b);
 Krat(b);
 Write('третье число = ');
 Vvod(c);
 Krat(c);
  s:=0;
  m:=[1..9];
    if (a in m) and (b in m) and (c in m) then
    begin
    S:= s+a+b+c;
    Writeln('сумма простых чисел= ', s);
    end
    else
    Write('числа не простые');
  End.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Вадим Мошев]

(НЕ работает(()

Что пишет? Какие ошибки выводит?

m:set of integer;

После слова of задаётся диапазон значений, из которых состоит множество. Если говорить о числах, то диапазон может состоять из 256 чисел максимум, каждое из которых не может превышать по значению 255, иначе говоря, самый широкий числовой диапазон для множества - 0..255. Вы же задаёте диапазон integer = 0.. 32766

[Лейля]

первое число= 12
делится
второе число = 7
делится
третее число = 5
делится
подсчет суммы:
числа не простые

На все числа отвечает, что делится и даже, если числа простые не подсчитывает их сумму, а пишет, что числе не простые

[Лейля]

спасибо, Вы правы, учту

[FPaul]

При вводе у вас планировалась процедура с параметром-переменной - поставьте var.
Без этого, даже после Vvod(a), Vvod(b)... переменные a, b,.. равны 0 - легко проверяется контрольной печатью writeln(a:3, b:3, c:3).