Вывести дробную часть заданного положительного числа А(Паскаль)

Question

Вывести дробную часть заданного положительного числа А(Паскаль)

Comments

7. Пишет, что ошибка

---

без понятия

---

пыталась, но не правильно

---

да.

Answer 1

Program al;
var a:real;
begin
writeln('a=');
readln(a)
;if a>0 then writeln(frac(a) )
else writeln( 'a otritatelinoe');
readln;
end.