Contoh program pascal Lingkaran

Contoh program Lingkaran dengan pascal Contoh Program membuat Lingkaran Dengan Turbo pascal :

uses wincrt;
var driver,mode:integer;
jarijari:word;
begin
driver:=;
initgraph(driver,mode,'');
for jarijari:=1 to 40 do
circle(160,100,jarijari*2);
readln;
end.