С. Р. О. Ч. Н. О. Составить процедуру, вичисляющую значение TRUE, если в первом из двух…

Program Pr1; uses crt; constR: array[1… 5] of real=(0,0,005,-0,02,-87,5,50); W: array[1… 5] of real=(45,721,5,8,63,-76,97,3); var a: boolean; i,b,t: integer; Beginclrscr; a: =TRUE; b: =0; t: =0; for i: =1 to 5 do begin if R[i]<0 then b: =b+1; if W[i]<0 then t: =t+1; end; if b>t then writeln (a) else begin a: =FALSE; writeln (a); end; end.