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

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

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