Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement