SEGITIGA

program Project1;
const
Segitiga: array[0..7] of char = ( 'S', 'E','G','I','T', 'I','G','A');
var
i: Integer;
begin
for i := 0 to High(Segitiga) do
Write(Segitiga[i]);
ReadLn;
end.