basic/packcc-pascal/t.pas

program id1;
begin
Write('Hello, World!');
while a <> b do  WriteLn('Waiting');
if a > b then WriteLn('Condition met')
else WriteLn('Condition not met');
for i := 1 to 10 do
WriteLn('Iteration: ', i);
repeat
a := a + 1;
until a = 10;
end.