program przeciwprostokatna; uses crt; var a,b:integer; c:real; begin clrscr; writeln('Podaj dlugosc przyprostokatnej a'); readln(a); writeln('Podaj dlugosc przyprostokatnej b'); readln(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />; c:=sqrt(a*a+b*<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />; writeln('Dlugosc przeciwprostokatnej wynosi ',c:0:2); readln; end.
Dziala bez problemu ale chce naprzyklad zrobic ze gdy ktos poda dlugosc przyprostokatnej a i b jako zero lub liczbe minusowa to zeby program wyswietlal komunikat:
writeln('Nie oszukuj!');
Dobrze by bylo gdyby jeszcze pod koniec po wyswietleniu wyniku zadawal pytanie "Czy chcesz obliczyc jeszcze raz?" 1 - tak 0 - exit
Kompletnie nie mam pojecia jak sie do tego zabrac