Напишите програвмирования на языке программирования Pascal:
1) Определить является ли треугольник со сторонами a,b,c равносторонним.
2) Даны m и n. Если m≠0, то заменить каждое из чисел большим из них числом, иначе заменить 0.

Благодарю)

var  a,b,c:real;begin  Read(a,b,c);  if (a=b) and (a=c) then Writeln('Треугольник равносторонний')  else Writeln('Треугольник не равносторонний')end.Пример15 15.0 15.0000Треугольник равностороннийvar  m,n,mx:integer;begin  Read(m,n);  if m>0 then    if m>n then n:=m else m:=n  else begin m:=0; n:=0 end;  Writeln('m=',m,', n=',n)end.Пример7 2m=7, n=7