кто разбирается в информатике, мне. нужно в паскале вывести на экран столбиком целые числа от 10 до 30, использовав цикл с предусловием.

Program asd;
USES crt;
var i:integer;
BEGIN
Clrscr; 
 i:=10-1;
while i<30 do   
 begin   
 i:=i+1; 
Writeln(i);   
end;
END.
Я сделал случайно на постусловие, потом переделал