Программирование.Pascal. Задача с циклом. Задача 1. Пользователь вводит 10 целых…

Держи 1 и 3:1) Program solution; Uses Crt; Var i, poloz, otrits, zero: Byte; n: integer; BeginClrScr; poloz: =0; otrits: =0; zero: =0; for i: =1 to 10 do begin readln (n); if n > 0 then poloz: =poloz+1; if n < 0 then otrits: =otrits+1; if n=0 then zero: =zero+1; end; write ('+: ', poloz, ', -: ', otrits, ', 0: ', zero); ReadKey; End. 3: Program solution; Uses Crt; Var sum, num, count: Word; BeginClrScr; sum: =0; count: =0; while sum <= 100 do begin write (': '); readln (num); sum: =sum+num; count: =count+1; end; writeln ('Было введено чисел: ', count); ReadKey; End.