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