Цикл while (уайл). Урок 2 Проанализируй следующий код и дополни таблицу.
nums = []
while len(nums) < 4:
user_input = int(input("Enter an integer: "))
if user_input % 2 == 0:
nums. append(user_input)

Тут ответ на это и следующие задание

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.