Вывести все двухзначные положительнык числа, кратные 5

begin var x := 10; while x < 100 do begin writeln(x:3); x += 5; end;end.

program del5;varx : integer;beginСlrscr; x:=10  while x<100 do  begin    writeln(x);    x:=x+5;  endend.