Напишите программу, которая вводит символ. если символ есть большая буква, то выводит "cool! ", иначе "bad" (c++)

Сорян, когда из паскаля скопировал, абзацы некоторые удалились,а так всё работает. Делать нечего прост сегодня :)
 
var s,i,min,max,m,n: integer;
var a: array[1..15] of integer;
begin
for i:=1 to 15 do begin 
 a[i]:=random(100);
   write(a[i],' ')   end; 

writeln;  m:=a[1];n:=a[1];

for i:=1 to 15 do begin 
  if m<a[i] then begin
     m:=a[i]; min:=i; end; 
  if n>a[i] then begin
      n:=a[i]; max:=i; end; end; if max<min then begin s:=max;max:=min;min:=s; end;

for i:=1 to ((abs(max-min)) div 2 +1) do begin   
s:=a[min];   a[min]:=a[max];   a[max]:=s;   min:=min+1;   max:=max-1;                                    end; for i:=1 to 15 do    write(a[i],' ');     end.

Рабочий процесс панели — на панели «Свойства» рабочий процесс представлен в направлении сверху вниз. То есть, любое заданное или измененное свойство может повлиять на свойства в разделах ниже, однако эти свойства не влияют на свойства в предыдущих разделах.

Узел иерархии — быстрый переход от редактирования отверстия к редактированию связанного эскиза, содержащего центры отверстий.

Развернуть/Свернуть — разделы панели можно развернуть, чтобы показать параметры для редактирования, или свернуть, чтобы скрыть редко используемые параметры.

Меню панели — в раскрывающемся меню доступен раздел справки и раздел дополнительных настроек. Содержимое меню зависит от контекста. Например, для панели свойств отобразится один список, для обозревателя модели — другой и т. д.

Закрепление: панель свойств можно закрепить с любой стороны графического окна приложения, в пространстве обозревателя или оставить незакрепленной поверх приложения или на рабочем столе. Это позволяет расположить панель или обозреватель там, где это удобно.

Отображение: панели запоминают последнее состояние, в котором они отображались, и оно восстанавливается при последующем использовании.