REPORT  zka418.

PARAMETERS: p_cislo1 TYPE c LENGTH 10,
            p_cislo2 TYPE c LENGTH 10,
            p-znak TYPE c LENGTH 10.

DATA: lv_vysledok TYPE i,
      lv_preslo TYPE c VALUE 'Y'.


IF p_cislo1 CA sy-abcde OR p_cislo2 CA sy-abcde.
  MESSAGE 'Na prve dve pozicie vkladajte iba cisla' TYPE 'S' DISPLAY LIKE 'E'.
ELSE.
  IF p-znak = '*'.
    lv_vysledok = p_cislo1 * p_cislo2.
  ELSEIF p-znak = '+'.
    lv_vysledok = p_cislo1 + p_cislo2.
  ELSEIF p-znak = '-'.
    lv_vysledok = p_cislo1 - p_cislo2.
  ELSEIF p-znak = '/'.
    lv_vysledok = p_cislo1 / p_cislo2.
  ELSE.
    MESSAGE 'Na tretiu poziciu vkladajte iba znaky * + - /' TYPE 'S' DISPLAY LIKE 'E'.
    lv_preslo = 'N'.
  ENDIF.
  IF lv_preslo = 'Y'.
    WRITE: / lv_vysledok.
  ENDIF.
ENDIF.