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

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

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку