citajcislo

program project1;
var ?????? ;

procedure citajcislo(var cislo:integer);
    var znak:char;
        znamienko: -1..1;
    begin
      znamienko:=1;
      cislo:=0;
      read(znak);
      while znak = ' ' do read(znak);
      while znak <> ' ' do
            begin
              case znak of '+':;
                           '-':znamienko:=-1;
                           '0':cislo:=cislo*10;
                           '1':cislo:=cislo*10+1;
                           '2':cislo:=cislo*10+2;
                           '3':cislo:=cislo*10+3;
                           '4':cislo:=cislo*10+4;
                           '5':cislo:=cislo*10+5;
                           '6':cislo:=cislo*10+6;
                           '7':cislo:=cislo*10+7;
                           '8':cislo:=cislo*10+9;
                           '9':cislo:=cislo*10+9;
              end;
            read(znak);
            end;
    cislo:=znamienko*cislo;
    end;

begin
  write('zadaj znaky: ');

  citajcislo(??????);
  writeln('cislo: ',cislo);
readln();
end.