c bu saatte taymaskhın sitede ne işi var programı
c lütfen evet için 1, hayır için 0 değerini veriniz
real time
integer person, site
write(*,*) 'saati giriniz', time
read(*,*) time
if(time.le.3.0.and.ge.6.0) then
write(*,*) 'yeterince uçuk bi saat değil'
go to 100
endif
write(*,*)'taymaskh uyanık mı', person
read(*,*) person
if (person.eq.0) then
write(*,*)'bu gidişle yarın derste uyuyacak salak'
go to 100
endif
write(*,*)'ulusozluk açık mı?', site
read(*,*) site
if( site.eq.0) then
write 'bilgisayarı açık unutmuş uyuyo elleşme'
else
write' olm salak mısın git yatsana'
End if
100 stop
end
