While1

## //PT4 while1
uses PT4;

Task('while1');
var a := ReadReal('A:');
var b := ReadReal('B:');
var aa := 0.0;
while a >= 0 do a -= b;
if a < 0 then aa := a + b;
Print(aa);