programstr6

Program

if er=false then Przepl(Hl); end;

if (k- n') or (k-N') then halt; end;

{PROGRAM GŁÓWNY}

begin

TNIT;

CZOLOWKA; repeat until keypressed; RestoreCrtMode; repeat

clrscr; er:=false;

Dane;

N:=Moc(H,Q);

Oblicz;

writeln;

Nowe; writeln; writeln;

Kursor(O);

writeln('Konicc programu (T/N) ?'); k:=readkey;

Kursor(l); until (k in ['f ,T]);

CloseGraph;

end.

37