Составить программу котрая выводит все двухзначные числа кратные 8

Question

Составить программу котрая выводит все двухзначные числа кратные 8

Answer 1

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