Все лабораторные работы по паскалю / 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.