TUGAS ALGORITMA

Langsung Aja to the Point, bagi Kawan" yang mau Download Softwarenya bisa Donlot DISINI!!!!!

Untuk Scriptnya :

uses wincrt;

label

22,10;

var

A: integer;

Begin

A:=22;

22: a:=a-2;

if a<0 then goto 10

Else

Write(a,' ');

goto 22;

10: end.

HASIL :