Собираясь на пляж, веселые человечки решили запастись питьем.

Незнайка взял с собой 2 литра кваса и литр газировки,пончик-литр газировки и 3 литра малинового сиропа,винтик и шпунтик вместе взяли 3 литра кваса и 2 литра газировки,торопыжка-3 литра газировки,доктро пилюлькин 1 литр кваса и литр касторки. 1 литр квасастоит 1 монету,1 литр газировки 3 монеты,1 литр касторки-2 монеты,1 литр сиропа-6 монет 

австрия -вена,

бельгия - брюссель,

германия- берлин,

дания - копенгаген,

испания - мадрид,

франция - париж,

швейцария - берн

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.