Площадь разделить на длинну
Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
Вред это то что ребенок ниче неделает сидит в интернете днями иночами портит зрение дети заходят на взрослые сайты родители забывают детях и седят в соц сетях пользат это што дети могут смотреть уроки общатся с друзьями и тд