Отметьте НЕВЕРНОЕ описание переменной(ых) вещественного типа:
Var r: real;
Var r, d: real, double:
Var r: double;
Var r: single; d: real;