Question

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

Answer 1

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.