Question

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

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.