Нужно решить по информатике: число a и b - катеты одного треугольника, c и d - катеты другого. определите, являются ли эти треугольники равновеликикими. программа - паскаль по шаблону prorram var begin if then

Program prog;
var
  a,b,c,d: real;
begin
readln(a,b,c,d);

if (a>0) and (b>0) and (c>0) and (d>0)  then begin
if (a*b = c*d)   then
writeln('Являются')
else  writeln('Не являются')
end;
end.

Интернет по сути своей не представляет опасности для подрастающего поколения. Вредоносное влияние оказывают многочисленные сайты и всплывающие окна рекламного характера. Помимо образовательной роли виртуальная реальность таит и множество негативных моментов, в особенности для детей. Это может быть:

незаконный контент: «взрослая» реклама табака, алкоголя, секса, азартные игры, порнография;платные сервисы и услуги, которые оплачиваются отдельно;призывы к асоциальному поведению, насилию и жестокости;пропаганда сексуальной эксплуатации и суицидального поведения;общение на форумах и чатах с мошенниками, аферистами и преступниками под личиной доброжелателей;вынуждение предоставления личной информации ребенка или его семьи, которая может быть использована в преступных целях;Интернет-зависимость.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  // общая часть
  var a:=ReadArrInteger('Массив:',ReadInteger('n='));
  var b:=ReadInteger('b=');
  // часть для задачи 1
  var i:=a.IndexOf(b);
  if i<0 then Writeln('Нет совпадений')
  else WritelnFormat('1. A[{0}]={1}',i+1,a[i]);
  // часть для задачи 2
  Writeln('2. k=',a.Where(x->x=b).Count);
  // часть для задачи 3
  var s:=a.Select((x,i)->x=a[i+1:a.Length].Sum).ToArray;
  var k:=s.IndexOf(True);
  if k>=0 then WritelnFormat('3. A[{0}]={1}',k+1,a[k])
  else Writeln('3. Не существует')
end.

Тестовое решение:
n= 10
Массив: -9 21 0 -9 21 6 -2 14 18 -15
b= -9
1. A[1]=-9
2. k=2
3. A[5]=21