Для программы обычно необходимы входные значения и соответственно то, что она возвращает. Вот, если она принимает с каждой новой строки (ввел длину одной стороны - Enter) по одному значению. На выходе она отдаст "true" - истина (если хоть две стороны равны) или "false" - ложь.
var a, b, c: integer; begin readln(a); readln(b); readln(c); if (a=b) or (a=c) or (c=b) then writeln('TRUE - trikutnik rivnobedrenyj') else writeln('FALSE - trikutnik ne rivnobedrenyj'); end.
Код полностью рабочий, только что проверен. Текст в 'кавычках' можно заменить на любой другой, но не используя символов кириллицы. Писать только на англ раскладке vot tak, kak bi eto ne bilo ushasno or typicaly print in English. Все знаки препинания и другие символы необходимо переписать в точности, не забывайте.
var a, b, c: integer;
begin
readln(a);
readln(b);
readln(c);
if (a=b) or (a=c) or (c=b) then writeln('TRUE - trikutnik rivnobedrenyj')
else writeln('FALSE - trikutnik ne rivnobedrenyj');
end.
Код полностью рабочий, только что проверен. Текст в 'кавычках' можно заменить на любой другой, но не используя символов кириллицы. Писать только на англ раскладке vot tak, kak bi eto ne bilo ushasno or typicaly print in English. Все знаки препинания и другие символы необходимо переписать в точности, не забывайте.