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

Question

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

Answer 1

Program del5;
var
x : integer;
begin
Сlrscr;
 x:=10
  while x<100 do<br>  begin
    writeln(x);
    x:=x+5;
  end
end.

Answer 2

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