Вставьте вместо точек слово из трех (четырех) букв, которое будет являться началом одного слова и окончанием другого. со( . . )ьба за( . . )ура са( . . )он ме( . . )лица за( . . )церт ам( . . )он ба( . . )ушка ку( . . )ал гор( . . )олад пи( . . )ерея обы( . . )ка прик( . . )ья нат( . . )внение кар( . . )ина киш( . . )мус бой( . . )тедж кар( . . )ус кон( . . )ив га( . . )ароны бу( . . )на на( . . )ло на( . . )ина апо( . . )б ам( . . )ан

со (суд) ьба

за (кон) ура

са (рай) он

за (кон) церт

ам (бар) он

ку (бок) ал

гор (шок) олад

пи (лот) ерея

обы (чай) ка

прик (лад) ья

нат (ура) внение

кар (низ) ина

киш (лак) мус

бой (кот) тедж

кар (тон) нус

га (мак) ароны

бу (тон) на

на (вес) ло

на (род) ина

предполагаю, что в предпоследнем пункте надо вставить слово из 4-х букв - тогда это стол апо (стол) б

ам (бар) ан

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так