Напиши в окне два таких слова , при склеивании которых получится тоже слово .

Сложим слово конь и слово як получится слово коньяк)

Program trapeciya; var x1, x2 ,y1, y2,  p, s: real; begin   writeln("введите значение верхнего основания");   readln(y1);   writeln("введите значение нижнего  основания");   readln(y2);   writeln("введите значение левой  грани");   readln(x1);   writeln("введите значение правой стороны");   readln(x2); p: =y1+y2+x1+x2;   s: =((y1+y2)/2)*sqrt(sqr((sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2- writeln(p); writeln(s); end    

Var  a: integer; begin       writeln('введите год рождения');   readln(a);       case a mod 12 of           0: writeln('вы родились в год обезьяны.');           1: writeln('вы родились в год петуха.');           2: writeln('вы родились в год собаки.');           3: writeln('вы родились в год свиньи.');           4: writeln('вы родились в год крысы.');           5: writeln('вы родились в год быка.');           6: writeln('вы родились в год тигра.');           7: writeln('вы родились в год кролика.');           8: writeln('вы родились в год дракона.');           9: writeln('вы родились в год змеи.');           10: writeln('вы родились в год лошади.');           11: writeln('вы родились в год козы.');   end;   readln end.