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

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

var a,b,c: real;beginreadln (a);readln (b);readln (c);if (a mod 5)=0 thenwriteln (a);if (b mod 5)=0 thenwriteln (b);if (c mod 5)=0 thenwriteln (c);end.