Cod sursa(job #33509)

Utilizator ulltrassPetridean Ovidiu ulltrass Data 19 martie 2007 14:32:48
Problema Kperm Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program test;
uses graph;
var gd,gm:integer;
procedure grstart;
 begin
   initgraph(gd,gm,'d:\bp\bgi');
   end;
begin
 grstart;
 outtext('in mod grafic. apasa return');
 readln;
 restorecrtmode;
 writeln('acum in mod text');
 readln;
 setgraphmode(gm);
 outtext('din nou in mod grafic. return');
 readln;
 closegraph;
 end.