<span>uses crt;
var c:char;
begin
clrscr;
write('Введите символ ');
readln(c);
case c of
'0'..'9':write('Это десятичная цифра, ее код ',ord(c));
'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c));
'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c));
//убрал знак /, он в спец. символах
';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c));
else write('Символ не входит в указанный список')
end;
readln
end.</span>
Var
i, a: byte;
begin
Randomize;
for i:=1 to 3 do write(Random(101):4);
<span>end.</span>
Var
A:byte;
Begin
Write('Введите двузначное число: ');ReadLn(A);
if (A div 10) + (A mod 10) > 3 then WriteLn('Да')
else WriteLn('Нет')
End.