Помогите
Напишите программу в Pascal ABC, определяющую является ли треугольник египетским, т.е. Его стороны должны быть равны 3, 4 и 5(можно просто на листочке бумаги)

program HelloWorld;vara, i, bool : integer;begin bool:=0; i:=3; while i>0 do begin i:= i-1; read(a); case a of 3: bool:= bool+3; 4: bool:= bool+4; 5: bool:= bool+5; end; end; if bool=12 then write('true') else write('false');end.

решение ниже в комментарии