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



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

program freeDig;uses crt;var a, b, c:Integer;begina:=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); readlnend.