как это будет выглядеть в Паскале? Опции

[forum4uxa]

i:=57; k:=19;
while i<199 do
if ((i + k div 2) mod 11) = 5 then i:=i-k else k:=k*k+(i div 2)