طبعا ضع ;في نهاية كل تعليمة ماعدا قبل else فانها غير موجودة لكي تتخلص من تكرار العمليات ضع تحت program uses crt و تحت begin ضع clrscr; تم ضع قبل end.ضع readln;ان شاءالله اكون قدرت افيدك