Program abc;
var a,b,c:integer;
begin
writeln('Введите первую сторону');
read(a);
writeln('Введите вторую сторону');
read(b);
writeln('Введите третью сторону');
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>a) and (c>b) then write(c);
if (a=b) or (a=c) or (c=b) then write('Есть равные стороны и нет большей')
end.