Вводится 2 числа, определить из них минимальное и вычислить во сколько раз оно меньше второго числа. нужно решить алгоритм - составить схему

Program qwerty;
var a,b,c:real;
begin
read (a,b);

if (a<b)then
c:=b mod a;
else
c:= a mod b;
write (c);
end.