Составить блок-схему и программу определяющую делится ли первое число на второе. (использовать команду mod и div с формулой a: =b mod c)

var a,b:integer;
begin
write('Введите a и b: ');
readln(a,b);
if a mod b=0 then writeln('Первое делится на второе')
  else writeln('Первое не делится на второе');
end.