Pseudocode CountPositive
integer totalPos,number
Begin loop
Input numbers
If number>0 then totalPos<-totalPos +1
Loop while number<>0
Print totalPos
Convert the above Pseudocode into a pascal program.
To convert the given pseudocode into Pascal program, you can follow these steps:
Step 1: Declare variables
```pascal
program CountPositive;
var
totalPos, number: Integer;
```
Step 2: Initialize variables
```pascal
begin
totalPos := 0;
```
Step 3: Start the loop to read numbers and count positive numbers
```pascal
repeat
Write('Enter a number (0 to exit): ');
Readln(number);
if number > 0 then
totalPos := totalPos + 1;
until number = 0;
```
Step 4: Print the total count of positive numbers
```pascal
Writeln('Total positive numbers: ', totalPos);
end.
```
The complete Pascal program to implement the given pseudocode is as follows:
```pascal
program CountPositive;
var
totalPos, number: Integer;
begin
totalPos := 0;
repeat
Write('Enter a number (0 to exit): ');
Readln(number);
if number > 0 then
totalPos := totalPos + 1;
until number = 0;
Writeln('Total positive numbers: ', totalPos);
end.
```
Note: This Pascal program assumes you are using a console-based environment to run it.