помогите написать программы на паскале

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.