Укажите количество записей, удовлетворяющих условию: (Материк='С. Америка' ИЛИ Материк='Ю. Америка')

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед

1)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.

2)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.

3)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.

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

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

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

var k,d: integer;

ja: real;

begin

  read(k,d);

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

end.