Hoj, mám taký problém že by som chcel aby sa vykreslil štvorec a potom sa vypísal nejaký text. Vec je v tom že by som tam chcel aj funkciu Clrscr a tá je v knižnici Crt. Akonáhle ale tuto knižnicu pridám tak funkcia writeln nepracuje správne a hodí mi len čierny odsek(akokeby medzery). Neviete prečo to robí, prípadne ako sa to dá opravit? Diky za pomoc.
Kód:
program stvorec;
uses Graph, crt;
const gd:integer=9;
gm:integer=2;
cesta='';
BEGIN
Clrscr;
InitGraph(gd,gm,cesta);
Rectangle(200,200,300,350);
readln;
CloseGraph;
writeln('To bol štvorec.');
readln;
END.