Текст задания

Проверить, является ли данный символьный массив записью арифметического выражения (использовать множество цифр и знаков арифметических операций).

Исходный код программы

Program zad2;
uses crt;
var
s:String;
f:boolean;
i:integer;
begin
clrscr;
Writeln('Vvedite ishodnuu stroku'); {запрашиваем строку}
Readln(s);
f:=false;
For i:=1 to Length(s) do {в цикле проверяем каждый символ}
  if not (Ord(s[i]) in [40..57]) then f:=true; {если код символа выходит за пределеы 40-57, то флагу присваиваем значение истина}
if f then Writeln('Ne arifmeticheskoe viragenie') else Writeln('Arifmeticheskoe viragenie'); {если флаг истина, то выражение не арифметическое, иначе - арифметическое}
Readln;
end.

Результат работы программы