сама только сделала. вот решила помочь
Плохо понел задание, но думою помог
uses crt;
var i,n:integer;
begin
writeln('Введите n');
read(n);
i:=122;
while i > 96+n do
begin
write(' ',Chr(i));
i:=i-1;
end;
end.
С7 - 307
111 - 421
А5 - 245
АА - 252
Соответственно вариант А
Var
F:integer;
begin
write('F = ');
readln(F);
writeln( 'C = ',5/9 * (F - 32) );
<span>end.</span>