Даны четыре различных целых числа. найти сумму тех чисел, которые больше 5. написать программу в packalabc.net

Program fofgogjoj;
var
a,b,c,d,s,i:integer;
begin
s:=0;
Writeln('Введите первое число');
Readln(a);
Writeln('Введите второе число');
Readln(b);
Writeln('Введите третье число');
Readln(c);
Writeln('Введите четвертое число');
Readln(d);
if a>5 then
s:=s+a;
if b>5 then
s:=s+b;
if c>5 then
s:=s+c;
if d>5 then
s:=s+d;
Writeln('Сумма чисел больших 5 равна:', s);
end.