Составьте программу печатающую значение true если указанное высказывание является истинным и false в противном случае числа a и b выражают длины катетов одного прямоугольного треугольника, а c и d - другого. эти треугольники являются подобными

Var   a, b, c, d: integer; begin   writeln('введите катеты a и b: ');   read(a, b);   writeln('введите катеты c и d: ');   read(c, d);   if a / b = c / d then write(true)   else write(false); end.

Const n=15;   var a: array[1..n] of integer; i: integer;   begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(16);   write(a[i]: 3);   end; writeln; for i: =1 to n do    if a[i]< =i then write(a[i]: 3) else write(' ': 3); writeln; end. пример: массив a:   14   8 14   1   6   2   4   7 10   3   4   6 15 14   2             1     2   4   7     3   4   6     14   2

Вдоступные бытовые магнитофоны распространились примерно со второй половины 1950-х — начала 1960-х годов. в это время возникло особое социальное явление — магнитофонная культура или «магнитиздат». легкость копирования магнитных записей позволила почти неограниченно распространять произведения, не одобрявшиеся официальной идеологией, но популярные в народе: песни бардов и первых полуподпольных рок-групп, западную популярную музыку, неофициальные выступления писателей-сатириков, лекции по уфологии, передачи «вражеских голосов» и т. п.[30][31] магнитофоны быстро вытеснили с рынка кустарную грамзапись — грампластинки, записанные на использованной рентгенопленке («музыка на ребрах»).