Вычислить сумму 56 введённых ( вводить не только четные ) четных чисел если результат превышает 568 то к этой сумме прибавить 300

Program 2;
var a,b,c:integer;

begin
a:=0;
for b:= 1 to 56 do
begin
readln(c);
a:=(a+c);
WriteLn(a);
begin
if a>568 then
Writeln(a+300);
end;
end;

end.