-
51.
-3{oldu mu panpa}
uses crt;
type
incigibinci= array [0..12] of char;
var
ananyanimda: incigibinci
begin
ananyanimda[0]:="a";
ananyanimda[1]:="n";
ananyanimda[2]:="a";
ananyanimda[3]:="n";
ananyanimda[4]:=" ";
ananyanimda[5]:="y";
ananyanimda[6]:="a";
ananyanimda[7]:="n";
ananyanimda[8]:="i";
ananyanimda[9]:="m";
ananyanimda[10]:="d";
ananyanimda[11]:="a";
begin
repeat
sleep (50000);
writeln (ananyanimda[0]);
sleep (50000);
writeln (ananyanimda[1]);
sleep (50000);
writeln (ananyanimda[2]);
sleep (50000);
writeln (ananyanimda[3]);
sleep (50000);
writeln (ananyanimda[4]);
sleep (50000);
writeln (ananyanimda[5]);
sleep (50000);
writeln (ananyanimda[6]);
sleep (50000);
writeln (ananyanimda[7]);
sleep (50000);
writeln (ananyanimda[8]);
sleep (50000);
writeln (ananyanimda[9]);
sleep (50000);
writeln (ananyanimda[10]);
sleep (50000);
writeln (ananyanimda[11]);
until 1=0;
end;
end;
end.
başlık yok! burası bom boş!