Написать программу, в которой пользователь вводит несколько чисел, программа выводит количество положительных чисел.

uses crt; const n:=5var a:array[1..n] of integer;i: integer;begin clrscr;randomize;for i:=1 to n do begina[i]:=random(100)-50;if a[i]>0 thenwriteln(a[i]);end;readkey;end.проверь программу, скорее всего будет так