Даны три числа найти количество чисел больше пяти

Язык не указан. Программа на C++

#include <iostream>

int main (){
int a,b,c,t = 0;
std::cin>>a>>b>>c;
if (a>5)
t+=a;
if (b>5)
t+=b;
if (c>5)
t+=c;
std::cout<<t;
}

Паскаль:

var
a, b, c, q: Integer;
begin
writeln('Введите 1-ое число:');
readln(a);
writeln('Введите 2-ое число:');
readln(b);
writeln('Введите 3-ое число:');
readln(c);
if a > 5 then
begin
writeln(a, 'Больше 5');
q := q + 1;
end;
if b > 5 then
begin
writeln(b, 'Больше 5');
q := q + 1;
end;
if c > 5 then
begin
writeln(c, 'Больше 5');
q := q + 1;
end;
writeln(q, 'числа больше 5');
end.