Помогите, мудрые люди) Напечатать числа от A до B c дробным шагом С. использовать while

program Ya_Ne_Hochu_Uchitsya;
uses
Crt;
var
A, B, C: Real;
begin
ClrScr;
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
Write('C = ');
ReadLn(C);
while A <= B do
begin
WriteLn(A);
A:=A + C;
end;
ReadLn;
ClrScr;
end.

Решаю задачи за оплату, блок схема прилагается