Задача в паскаль



Даны 3 числа. Найти сумму чётных чисел, которые больше 50.

program freeDig;
uses crt;
var a, b, c:Integer;
begin
a:=0;
for b:=1 to 3 do begin
Write('Введите число номер ', b, ': ');
Readln(c);
if c mod 2 = 0 then
if c>50 then a:=a+c;
end;
Write('Сумма четных чисел, больших 50, равна ', a);
readln
end.