Pascal, помогите.Запросите у пользователя символ и выведите ** экран 5 символов,...

Question

Pascal, помогите.

Запросите у пользователя символ и выведите на экран 5
символов, следующих за ним в таблице американских стандартных кодов обмена
информацией. Проверьте, есть ли среди них знаки препинания.

Answer 1

Uses crt;
var i,n,znak:integer;
    a:char;
begin
clrscr;
Writeln('Введите символ:');
readln(a);
writeln;
znak:=0;
for i:=1 to 5 do
begin
n:=ord(a);
n:=n+i;
writeln(i,') ',chr(n));
if (n = 44) or (n = 45) or (n = 46) or (n = 58) or (n = 59) or (n = 33) or (n = 63) or (n = 34) then
znak:=znak+1;
 end;
if znak = 0 then writeln('Нет знаков препинание.')
else writeln('В следующем 5 символе оказалась ',znak,' знак(ов) препинание');
readkey;
end.