Kod: Zaznacz cały
program ptp;
uses
graph;
var
karta,tryb:integer;
napis:string;
begin
detectgraph (karta,tryb);
initgraph (karta,tryb,'C:\FPC\2.4.0\units\i386-win86\graph');
setcolor (yellow);
circle (205,270,195);
setcolor (white);
napis:='kolko';
outtextXY (50 div 2-textwidth(napis) div 2,50 div 2- textheight(napis)div 2, napis);
readln;
closegraph;
readln;
end.