Live As Technology

 Perulangan dengan menggunakan fungsi For To Do adalah perulangan yang paling sederhana, kita juga dapat menyortirnya dengan fungsi IF
-------------------------------------------------------------
program Project2;

{$APPTYPE CONSOLE}

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