Напишите программку , которая получает 3 целых числа и обретает количество

Как-то так:

var a,b,c,s:integer;

begin write('введите первое число - ');readln(a);

write('введите 2-ое число - ');readln(b);

write('введите третье число - ');readln(c);

if (a mod 5 = 0)

then s = s + 1;

if (b mod 5 = 0)

then s = s + 1;

if (c mod 5 = 0)

then s = s + 1;

write ('кол-во чисел, кратных 5-ти - ', s);

end.