Помогите написать программы на паскале   1.вычислить произведение 3-х  вводимых чисел которые меньше 20. 2. вывести на экран количество четных и количество нечетных чисел в диапазоне от Х до У.  

1) uses crt; var a,b,c:integer; begin read(a,b,c); if (a>20) or (b>20) or (c>20) then write(a*b*c) else write('Одно из чисел больше чем 20'); end. 2) uses crt; var x,y,i,k,k1;integer; begin read(x,y); for i:=x to y do begin if (x mod 2=0) then k:=k+1 else k1:=k1+1; writeln('Четных: ',k); write('Нечетных: ', k1); end.