Подсчитать произведение всех четных чисел от 1 до n (паскаль)

14                                                                                                                       

1)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.

значит полторы курицы за день одно яйцо

значит одна курица за день 2/3 яйца

работу с файлами я не помню, буду писать через консоль

var k,d: integer;

ja: real;

begin

  read(k,d);

  writeln(round(2*k*d/3));

end.