program pokus1;

uses crt;
const max:integer=123;
label bad,pok;
var a,b:real;
    c,d:integer;

begin
clrscr;
writeln;
writeln;
write('Napiste 1. cislo: ');
 read(c);
goto pok;
bad:;
 Sound(200);
 Delay(500);
 NoSound;

 writeln;
 write('Chyba zadej te cislo znovu.');
 writeln;
pok:;
 write('Napiste 2. cislo: ');
 read(d);
IF d=0 then goto bad;
 a:=c/d;
 writeln;
 write('Vysledek je: ', a:0:4,');
 delay (2000);
end.


rem Poznamka
rem Jeste jedna