Составить алгоритм вывода на экран всех чисел на отрезке [45; 180], делящихся нацело на 8

Program n1;
var i: integer;
begin
for i:=45 to 180 do if(i mod 8=0) then writeln(i);
end.