Правильно ли написана программа? ТурбоПаскаль

Question

Формула a/b*c, и переменные ...

Program Rashet pogreshnosti; 
Uses CRT; 
a,b,c,d:real 
x:char 
label z; 
begin 
clrscr; 
writeln('Rashet pogreshosti'); 
readln; 
z: 
clrscr; 
writeln('wedite znachenie A'); 
readln(a); 
writeln(wedite znachenie B'); 
readln(b); 
writeln(wedite znachenie C'); 
readln(c); 
d:=a/b*c); 
if d <1 then writeln ('Pogrechnost ne mozet bit nige 0'); 
else writeln ('Pogreshnost sostavila' , d:4:2); 
readln; 
writeln ('POVTOR? (Y/N)'); 
readln (x); 
case x of 
 'Y','y' : goto z; 
 'N', 'n' : exit; 
 end; 
end.

Спасибо, поправил .

Елизавета Фролова · Accepted Answer

если работает - то правильно, но нужно сделать "проверку на дурака", b <> 0, и x любое значение кроме Y,y,N,n

Катюшкин · Answer

метки это зло 
не вижу var после uses: crt; 
 
d:=a/b*c); - зачем тут скобка? 
 
повтор в конце ужасен, лучше делать циклом repeat 
 
перед else точка с запятой не ставятся

Наталья · Answer

Program Rashet pogreshnosti; Используйте нижнее подчеркивание вместо пробела. 
d:=a/b*c); Вместо этого d:=a div b * c; 
if d <1 then writeln ('Pogrechnost ne mozet bit nige 0'); точку с запятой убрать в конце.