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

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