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

 

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.