end след Write(‘Liceto na triugulnika e’, s:0:3); трябва да има ;