паскаль програм правельно ли?

Question

program z1; 
var k: real; t :integer; 
begin 
k:=0; 
t:=0; 
writeln('vvedite t'); 
readln(t); 
while k<1000 do 
begin 
t:= t+1; 
k:= k+1+ (t mod 12); 
end; 
writeln ('t=', t); 
end.

Елена Малыхина · Accepted Answer

я не знаю, что она должна делать, но если делает то что Вы хотите, то конечно правильно. 
синтаксических ошибок не видно. 
 
или Вам сказать, что она делает???

Котёнок · Answer

правильно))