Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / function / Program2

uses crt;
var a,b: integer;
    i: boolean;
    
// процедура на проверку кратности одного числа на другое     
function kratnost: boolean;
 begin
   if a mod b=0
    then i:=true
    else i:=false;
  kratnost:=i;
  end;
  
begin
  write('Введите число A: '); readln(a);
  write('Введите число B: '); readln(b);
 if kratnost
     then write('число ',a,' кратно числу ',b)
     else write('число ',a,' не кратно числу ',b);
end.