Помогите пожалуйста создать программу, чтобы находило частное от деления. Заранее спасибо!

program qq;var a,b,c:real;beginwriteln('vvedite delimoe I delitelb');readln(a,b);c:=0;c:=a/b;writeln('частное =',c);readln;readln;end.