Programozás Pascalban: Téglalap átlójának kiszámítása