Sayfa 30

else ,terimyer ) end; (* while *) end; Ck terimaku 4)

begin (* ıfadeoku *) While artı) ör (ifadekr 5 eksi) da begin toplama ıfadekr; karekterakulıfadekr,ıfadeyer); ım); 1f toplama * artı then ıfadedeger :5 ifadedeger * sonterim else ıfadedeger - sonterim end; Ck while *) end; (* 1fadeoku *)

hegin Ck hesapmakınası *) sonyer O; while sonkr <> Bitim do begin netice); ı1f (sonkr 5 ayrac) or <(sonkr & bıtım) then begin sonkr —ayrac then ) end (C* then *) else end <* while *) end. Ct heesapmakınası *)