Запишите, пожалуйста, на языке Паскаля. Условие задачи: подсчитать кол-во…

Program abc; var a, b, c: real; var i: integer; Beginwriteln ('Введите число а'); readln (a); writeln ('Введите число b'); readln (b) тоже самое и для сi: =0if a>0 then I: =i+1 тоже самое только для б и сwriteln ('Число положительных чисел=, 'i); End.