Даны две веревки а и в, а длинная в короткая нужно вычислить сколько раз в входит в а и остаток х который не вошел? решить не используя деления и умножения.составить программу по паскалю

Uses crt;
var a,b,ans,x:real;
begin
writeln('Введите длины веревок A B:');
read(a,b);
while a>=b do
begin
a:=a-b;
ans:=ans+1;
end;
x:=a;
writeln('ответ: ',ans);
writeln('Остаток: ',x);
end.