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

var a,b,c,d,S:real;beginS:=0; write('vvedite 4 chisla'); readln(a,b,c,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;write('Summa chisel =',S)end.