Составьте алгоритм по получению изображения первой буквы своего имени(а) для исполнителя робот

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

var tl, tp, l, p: real;

     el, n: integer;

begin

print('Время, за которое лифт передвигается на 1 этаж');

readln(l);

print('Этаж, на котором находится лифт');

readln(el);

print('Время, за которое Катя поднимается на 1 этаж');

readln(p);

print('Нужный этаж');

readln(n);

tp := (n - 1) * p;

tl := (el + n - 2) * l;

println('Время на лифте:', tl);

println('Время по лестнице:', tp);

if tp > tl then

println('На лифте быстрее')

else

 if tp < tl then

 println('По лестнице быстрее')

 else

 println('Нет разницы');

end.