Program test1;
Var b:Real;
Begin
 Write('Введите число, дробное: ');
 ReadLn(b);
 WriteLn('Ваше введеное число: ',b);
End.