Программа которая определяет равнобедренность треугольника в паскале

Для программы обычно  необходимы входные значения и соответственно то, что она возвращает. вот, если она принимает с каждой новой строки (ввел длину одной стороны  - 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. все знаки препинания и другие символы  необходимо переписать в точности, не забывайте.

const

K = 5; // можно сделать переменной и запрашивать у пользователя

alpha : array[1 .. 4] of char = ('Ы', 'Ш', 'Ч', 'О');

var count : integer := 0;

procedure p(s : string);

begin

if s.Length = K then

begin

writeln(s);

inc(count);

end

else

begin

var L := s.Length;

if (s.Length < 2) or (s[2] = 'Ы') then

foreach var ch : char in alpha do p(s + ch);

end;

end;

begin

p('');

writeln('count = ', count);

end.