Kontrola DÚ Pascal

[PS3master]

A dá se nějak pascalu v podmínce říct, že pokud je podmínka splněna,ukonči program a vypiš něco?
Něco ve stylu

Kód: Vybrat vše

if A<1 then end program and writeln('Zadane cislo neni v oboru prirozenych cisel')

Dale by se to asi vyřešit procedurou nebo funkcí, ale i tak by mě to zajímalo???

[Zivan]

Ukoncit program a az pak neco vypsat je blbost (nejdriv se zastrelim a az pak napisu dopis na rozloucenou) Musis to udelat obracene...neco vypsat a pak ukoncit program.

Kód: Vybrat vše

if (...) then
begin
  writeln(...);
  halt(0);
end;