Поогите пж с зд 3 нужно срочно
Program ABC;var x: real;begin writeln ('Ââåäèòå ÷èñëî "õ"'); readln(x); if x>0 then write ('×èñëî ',x,' ÿâëÿåòñÿ ïîëîæèòåëüíûì') else write ('×èñëî ',x,' íå ÿâëÿåòñÿ ïîëîæèòåëüíûì'); end.