[gokhanaygun]

uses crt;

const
m:string=('EYÜP ÇİÇEK BİLGİSAYAR PROGRAMLAMA TEKNİKERİ');

var
i:integer;

begin
clrscr;
for i:=1 to 80 do
begin
clrscr;
gotoxy(i,1);
write(m);
end;
readkey;
end.