Файлдармен жұмыс жасау
Задание:
Енгізу файлында 3 бүтін сан берілген. Егер бұл сандар үшбұрыштың қабырғалары бола алса, шығару файлына «ИӘ», кері жағдайда «ЖОҚ» хабарламасын шығарыңыз.
Решение:
program a;
var n,i:longint;
x:array[1..10000] of longint;
begin
readln(n);
for i:=1 to n do readln(x[i]);
for i:=n downto 1 do write(x[i],’ ‘);
end.