sim yazma

var
x:integer;
var
z:integer;

begin
x:=0  ;
x:=x+1 ;
z:=x mod 5;
if(z=0) then (edit1.text:='B');
if(z=1) then (edit1.text:='Bu');
if(z=2) then (edit1.text:='Bur');
if(z=3) then (edit1.text:='Bura');
if(z=4) then (edit1.text:='Burak');