Вот вроде) только тут Нахождение суммы четных чисел от 1 до N
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, 0, 99);
a.Println.Sum.Println
end.
var b,p,s,x,a:real;
begin
read(b);
x:=sqrt(sqr(b)/2);
a:=x*2;
writeln('P= ',(b+b+a):2:2);
writeln('S= ', a*x*0.5);
end.
после (b+b+a):2:2 означает округление до 2 знаков после запятой
Кажется, будет слово: паркет.
Но я не уверена, на счет второй картинки