uses crt;
var a:string[10]; b:integer;
begin
while a<>"mydesign" do
begin
b:=b+1;
write("Þifre Giriniz >"); readln(a);
end;
writeln(b," incide Þifreyi Bildiniz"); readln end.
crazy engineer
kaya51991@hotmail.com
doðum gününü hesapla
!-- START OF SCRIPT -->
HANGÝ GÜN DOÐDUN?
Dogdugunuz tarihi yazýn ve hesapla tusuna basin
designed by okanka
www.karamsar.lobisi.com
dj.rapsody@hotmail.com
dj_baris1905@hotmail.com
barýþ xxxx
dj.rapsody@hotmail.com
