Выведите все двузначные числа, которые кратны 5 на языке паскаль через цикл repeat или while как в : условие n< 100, т.е. n: =10

Program kratno;
var n: integer;
begin
n:=10;
while n<100 do begin
if n mod 5 = 0 then
writeln (n);
n:=n+1;
end;
end.