Паскаль:
/////////////////
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.