помогите с программой

[Ananim-Pbl6ak]

Написать в ТР программу реализующие следующие действия:
Запросить и ввести с клавиатуры символ, если символ буква латинского алфавита то напечатать три буквы латинского алфавита следующие после нее в другом регистре.
Если введенный символ цифра то написать сумму цифр стоящих до и после заданной.
В противном случае сообщить что символ не буква и не цифра.
скелет вот такой я думаю, а как дальше не знаю


program bykBa_Cifra;
{Романов Антон ЭЭ 31-08}
var symbol:char;
begin
writeln('введите символ ');
readln(symbol);
if{Латинская буква }
then
begin
{действия по букве }
end
else
if{цифра} then
begin
{действия по цифре }
end
else writeln('символ не буква латинского алфавита и не цифра ')
readln
end.


помоги пожалуйста

[puporev]

Разбирайся, что не поймешь, спрашивай, но вроде все ясно.

uses crt;
var c:char;
    t,a:integer;
begin
clrscr;
write('Vvedite simvol:  ');
readln(c);
case c of
'A'..'W':write(chr(ord(c)+33),chr(ord(c)+34),chr(ord(c)+35));
'a'..'w':write(chr(ord(c)-31),chr(ord(c)-30),chr(ord(c)-29));
'X'..'Z','x'..'z':write('Dalshe net treh bukv!');
'1'..'8':begin
           val(c,t,a);
           write(2*t);
         end;
'0':write('Sleva net cifry!');
'9':write('Sprava net cifry!');
else write('Ne cifra i ne bukva!');
end;
readln
end.

[Ananim-Pbl6ak]

мне надо в турбо паскале 7
все надо сделать с развилками препод не поверит что я написал,
если не тяжело просто дополните мой первый пост там есть скелет программы. заранее спасибо

[puporev]

А это что, на китайском? Я и так в Турбо Паскале 7,0 пишу, или что второй раз видите? Если думаете что if ... then ... else легче, то пожалуйста:

uses crt;
var c:char;
    t,a:integer;
begin
clrscr;
write('Vvedite simvol:  ');
readln(c);
if c in ['A'..'W'] then write(chr(ord(c)+33),chr(ord(c)++34),chr(ord(c)+35))
else if c in ['a'..'w'] then write(chr(ord(c)-31),chr(ord(c)-30),chr(ord(c)-29))
else if c in ['X'..'Z','x'..'z'] then write('Dalshe net treh bukv!')
else if c in ['1'..'8'] then
    begin
      val(c,t,a);
      write(2*t);
    end
else if c='0' then write('Sleva net cifry!')
else if c='9' then write('Sprava net cifry!')
else write('Ne cifra i ne bukva!');
readln
end.

[Ananim-Pbl6ak]

if c in ['A'..'W'] then write(chr(ord(c)+33),chr(ord(c)++34 ),chr(ord(c)+35))
else if c in ['a'..'w'] then write(chr(ord(c)-31),chr(ord(c)-30),chr(ord(c)-29))
вот эти места непонятны вообще
в паскале в школе максимум вычисляли площадь треугольника и так далее, большое спасибо вам за помощь

[Alter]

вот с ифами:

uses crt;
var c:char;
    t,a:integer;
begin
 clrscr;
 write('Vvedite simvol:  ');
 readln(c);
If (c in ['A'..'W']) then
 begin
  write(chr(ord(c)+33),chr(ord(c)+34),chr(ord(c)+35));
 end
  else
if (c in ['a'..'w']) then
 begin
  write(chr(ord(c)-31),chr(ord(c)-30),chr(ord(c)-29));
 end
  else
if (c in ['X'..'Z','x'..'z']) then
 write('Dalshe net treh bukv!')
  else
if (c in ['1'..'8']) then
 begin
  val(c,t,a);
  write(2*t);
 end
  else
if c='0' then write('Sleva net cifry!')
 else
if c='9'then write('Sprava net cifry!')
 else write('Ne cifra i ne bukva!');
 Readln;
end.

[Ananim-Pbl6ak]

большое спасибо!!!

[puporev]

if c in ['A'..'W'] then write(chr(ord(c)+33),chr(ord(c)++34 ),chr(ord(c)+35 ))

Если введенный символ принадлежит множеству ... то вывести на экран символы(chr) c порядковыми номерами(ord) на 32+1,+2,+3 больше (смотрите таблицу символов ANSII).

else if c in ['a'..'w'] then write(chr(ord(c)-31),chr(ord(c)-30),chr(ord(c)-29))

Если введенный символ принадлежит множеству ... то вывести на экран символы(chr) c порядковыми номерами(ord) на -32+1,-32+2,-32+3 меньше (смотрите таблицу символов ANSII).

[Ananim-Pbl6ak]

хорошо спасибо еще раз