Написать программу по Паскале. Вычислить сумму чисел от 19 до 51,

1-й вариант:
Pascal (for)
var sum : integer;
i: integer;
begin
sum := 0;
i := 0;
for i:=19 to 51 do
begin
if i mod 5 = 0 then
sum := sum + i;
end;
writeln(sum);
end.
2-й вариант:
Pascal
var sum : integer;
i: integer;
begin
sum := 0;
i := 19;
while (i lt;= 51) do
begin
if i mod 5 = 0 then
sum := sum + i;
i := i + 1;
end;
writeln(sum);
end.