Live As Technology

Dengan Fungsi While .. Do .. kita dapat melakukan perulangan, akan tetapi bila kita
ingin menyortir beberapa huruf/angka kita memerlukan fungsi IF didalamnya, beginilah codenya
-----------------------------------------------------------------
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a:integer;
begin
a:=1;
while a<11 do
begin
if (a<>5) and (a<>8) then
writeln(a);
a:=a+1;
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
-------------------------------------------------------------------