Pascalサブセット言語もどき（？）PL05

変数宣言（変数は数値のみです）
var 変数名;
var 変数名,変数名...;
var 配列名[開始添え字...終了添え字];

手続き宣言
procedure 手続き名(引数リスト)

関数宣言
function 関数名(引数リスト)

引数リスト
[var] 仮引数名,...
varを付けると参照渡しになります

ブロック
begin
  命令[;命令...]
end

代入
変数(配列) := 値
値は、関数又は変数または数字です

手続き呼び出し
手続き名[(引数)]

条件分岐
if 条件文 then
 実行文
[else 実行文]

ループ
while 条件文 do 実行文

条件文には、= <> > < >= <= が使用できます
(and or は未対応（＾＾；）

計算は + - * div(わり算)が使用できます

入力から数字を読み込む
read(変数名);

数値を出力
write(値);

例:素数を求めます

program prome_ex;
var n;
procedure prime(n);
var m;
begin
   m:=n div 2;
   while n<>(n div m)*m do m:=m-1;
   if m=1 then write(n);
end; 
begin
   read (n);
   while 1<n do
   begin
      prime(n);
      n:=n-1
   end
end.