6 15 16 20 вотак вот надо зашифровать слово ЕНОТ
Program rrr;
Var a,b,c,k: integer;
begin
readln (a,b,c);
if (a>b) and (a>c) then k:=a;
if (b>a) and (b>c) then k:=b;
if (c>a) and (c>b) then k:=c;
writeln (k);
end.
я делала так, но хз что делать если числа будут равны
Для вывода текста оператором writeln необходимо указывать текст в скобках
например writeln("какой-то текст")
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.