Pм (периметр в метрах) = 2(a+b);
Pсм = Рм*100;
N (кол-во досок) = Рсм/10см.
Алгоритм не знаю в каком виде писать, так что делай сам(а).
var
a,b:integer;
begin
readln(a,b);
write('Нужно ',2*(a+b)*100/10,' досок')
end.
Панель управления -> Центр управления сетями и общим доступом -> Свойства адаптера -> ПКМ по "Подключение по локальной сети" -> "Включить".
Начальные координаты обозначешь за х и у
составляешь систему:
х+7(-1-2+4)=1
у+7(2+2-5)=1
получается, что
х=-6
у=8
это и есть начальные координаты
Вот программа, выводит примерно так, как на картинке.
Program p_1;
var
i, j : integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(i * j, ' ');
end;
end.