LAC-5700 Operatsioonisüsteemid
malu[ positsioonMalus ] := ' ';
end
else begin { Kui m,,lu vabastamise meetod on 2 }
{ M,,rgitakse m,,lu vabastamiseks }
For positsioonMalus := 1 to maluSuurus do
if malu[ positsioonMalus ] = BlokiNimi then
malu[ positsioonMalus ] := '*';
end;
{ V,,ljastab m,,lu seisu ekraanile }
For positsioonMalus := 1 to maluSuurus do
Write( fail, malu[ positsioonMalus ] );
WriteLn ( fail );
end;
procedure maluKysija;
begin
{ Vabastamise ja vätmise k,,ske peab olema kokku v,,hemalt
60... }
votaMalu( 'a', 2 ); { Väta 2 blokki ja nimeta need 'a'-ks
}
votaMalu( 'b', 5 );
votaMalu( 'c', 10);
votaMalu( 'l', 1 );
votaMalu( 'j', 8 );
votaMalu( 'd', 15);
vabastaMalu( 'c' );
votaMalu( 'u', 14);
vabastaMalu( 'u' );
votaMalu( 'e', 3 );
votaMalu( 'n', 1 );
votaMalu( 'y', 3 );
votaMalu( 'f', 5 );
votaMalu( 'g', 7 );
vabastaMalu( 'j' );
annaabi.ee 
