Program zero;
Uses CRT;
Var
        szam1, szam2 : real;
Begin
        ClrScr;
        WriteLn('Add meg az elso szamot:');
        ReadLn(szam1);
        WriteLn('Add meg a masodik szamot:');
        ReadLn(szam2);
        if szam2 = 0 then Write('Az osztas ertelmetlen');
                else WriteLn('Eredmeny: 'szam1/szam2);
        ReadLn;
End.