Вот для любой подойдет в выделенной области выбираешь стиль с контуром в в изменении фигуры -можешь задать толщину линии.
Получится машина
если / указывало место курсора
Var a:array of Integer; n,i,max,ind:Integer;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
readln(a[i]);
max:=a[0];
ind:=0;
for i:=0 to Length(a) do
if abs(a[i])>abs(max) then
begin
max:=a[i];
ind:=i;
end;
n:=a[0];
a[0]:=max;
a[ind]:=n;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>
Var a:integer;
begin
writeln('Введите время (в минутах)');
readln(a);
if ((a mod 10>=0)and(a mod 10< 3))or((a mod 10>=5)and(a mod 10< 8)) then writeln('Зелёный')
else writeln('Красный');
readln
end.