Дано змінні z:='A',x:='B',y:='C'.який результат s:=x+y+zв мові програмування Free Pascal​

Var a,af,al:integer;
begin
  writeln('Введите число');
  readln(a);
  if a<10 then writeln('ответ: ',a)
  else
  if a<=99 then
  begin
  af:=a div 10;
  al:=a mod 10;
  if af>al then writeln('ответ: ',al) else writeln('ответ: ',af)
  end
  else
  if a<=999 then
  begin
  af:=a div 100;
  al:=a mod 10;
  if af>al then writeln('ответ: ',al) else writeln('ответ: ',af)
  end
  else
  if a<=9999 then
  begin
  af:=a div 1000;
  al:=a mod 10;
  if af>al then writeln('ответ: ',al) else writeln('ответ: ',af)
  end
  else
  if a<=30000 then
  begin
  af:=a div 10000;
  al:=a mod 10;
  if af>al then writeln('ответ: ',al) else writeln('ответ: ',af)
  end;
end.

Var
a:array[1..12]of real;
i:integer;
s1,s2,s3,s4:real;
begin
  for i:=1 to 12 do
  begin
  writeln('Введите среднемесячную температуру за ',i,' месяц:');
  read(a[i]);
  if i<=3 then s1:=s1+a[i] else
  if (i>3)and(i<=6) then s2:=s2+a[i] else
  if (i>6)and(i<=9) then s3:=s3+a[i] else
  s4:=s4+a[i];
  end; 
  writeln('Средняя температуры зимних месяцев: ',s1/3);
  writeln('Средняя температуры весенних месяцев: ',s2/3);
  writeln('Средняя температуры летних месяцев: ',s3/3);
  writeln('Средняя температуры осенних месяцев: ',s4/3);
end.