کتابخانه الکترونیک

;program test

;uses wincrt

;label 100

var

;name,field,sex:string[50]

;person,sh,number,age,i,d,t,e:integer

begin

;sh:=1

;t:=0

;i:=0

;e:=0

;d:=0

;write('how many student want to take in exam')

;readln(person)

while sh<=person do

begin

;clrscr

;writeln('please enter name ,number')

if number=0 then

goto 100

else

;write('enter age:')

;readln(age)

;write('enter sex')

;readln(sex)

;write('enter field')

;readln(field)

if (sex='male') and (age>25) then

;i:=i+1

if field='doctor' then

d:=d+1

else if field='engineer' then

e:=e+1

else if field='teacher' then

;t:=t+1

;sh:=sh+1

;end

,writeln('number of the man who are older than 25 yeas old:',i/person*100:5:2,'%')

;writeln('number od doctor:',d)

;writeln('number of teacher:',t)

;writeln('number of engineer:',e)

100:end.