Составить программу, в которой вводятся числа х, у символ арифметической…

Program znanija; Var x,y,z: real; c: char; BEGINreadln (x); readln (y); readln (c); if c='+'then z: =x+yelse if c='-'then z: =x-yelse if c='*'then z: =x*yelse if c='/'then z: =x/y; writeln (z); END.