Даны три вещественных числа. Вывести на экран те из них, которые кратны 5.

var a,b,c: real;
begin
readln (a);
readln (b);
readln (c);
if (a mod 5)=0 then
writeln (a);
if (b mod 5)=0 then
writeln (b);
if (c mod 5)=0 then
writeln (c);
end.

А кто вас так учил работать с вещественными числами?