program selamlama
character(len=10)::ad,soyad
character(len=20)::tamad
integer::yas,dogum_yili
print*,"Adiniz:"
read*,ad
print*,"Soyadiniz:"
read*,soyad
print*,"Dogum yiliniz:"
read*,dogum_yili
tamad=trim(ad)//" "//trim(soyad)
yas=2004-dogum_yili
print*
print*,"Merhaba ",tamad," (yasiniz ",yas,")"
print*,"ITU Insaat Fakultesi, Bilgisayar ",&
"Laboratuarina Hos geldiniz!"
end program selamlama