Составить кроссворд по теме "икт и общество"

койка, стройка, трест, рой, репа, тройка, река, серп,строка.

с: =(a+b)*(b-a) должно быть ну и тогда с это разность квадратов а и в

в клетке а1 - 8

              а2 - 80

              а3 - 72

              в1 - 20

              в2 - 2 

var a,b,c,s: real;

begin

  read(a,b);

  c: =sqrt(sqr(a)+sqr(b));

  s: =0.5*a*b;

  write('гипотенуза треугольника равна: ',c,', площадь равна: ',s);

end.

вот программа