Fel adták a leckét, hogyan tudnám megoldani? Valaki le tudná írni a parancsokat?

Sem a Googleban megtalálni a pascal nyelvet.

Mellesleg: Ennek nincs köze a Lazarushoz, hétköznapi pascal az egész. A programban pedig nincsenek parancsok.

Az elejét megírtam, onnan már biztos tudod folytatni.

program feladat;

const

n=400;

var

b : array [1..n] of boolean;

i, j : integer;

begin

for i := 1 to n do

b[i] := false;

Következő ciklus is egy for ciklus lesz (ha jól nézem a szöveges kódot) de utána pedig a while parancsot kell majd alkalmazni

[link]