3.1

var 

    length,width,plank:integer;

    result:real;

  begin

    plank := 10;

    Write('Введите длину участка(см)');

    Readln(length);

    Write('Введите ширину участка(см)');

    Readln(width);

    result := (length+width)*2/plank;

    Write('Необходимое количество досок: ', result:10:0);

  end.