Введите число и вычитать из него по 0,5 до тех пор пока оно нестанет меньше 1

Ответ:

Объяснение:

var a,b: real;

 n,i: integer;

begin

 readln(a);

 b:=0.5;

 while a>1 do

  begin

    a:=a-b;

  end;