информатика! !!СРОЧНО!!ПОМОГИТЕ!!!СПАСИТЕ!!!СОСТАВИТЬ ПРОГРАММУ ПИСЬМЕННО, ЖЕЛАТЕЛЬНО СДЕЛАТЬ И СФОТКАТЬ! !!СРОЧНО!!!

на бэйсике надо!

program z1;var:y,a,c,x:real;beginreadln(a,c,x);y:=0;if xif x>c then y:=a;if x=c then y := c-a;writeln (y);end.