Question

Помогите пожалуйста написать код на Pascal
​

Answer 1

program gradeCounter;
var
grade, count: integer;
begin
count := 0;
writeln('Enter the grades:');
readln(grade);
while (grade > 0) and (grade <= 5) do
begin
if grade = 2 then
count := count + 1;
readln(grade);
end;
writeln('Number of twos: ', count);
end.