��

�� . ��

��:

� �� , �� 0 �� "Error: division by zero!", � �� "Error in input!".
�� - �� .

�� : return

time 1000 ms
memory 256 Mb
��

	��-��
Free Pascal	32

Pascal

1	var n: integer;
2
3	procedure printError(s: string);
4	begin
5	writeln(s);
6	end;
7
8	begin
9	read(n);
10	if n = 0 then
11	// �� "Error: division by zero!"
12	else
13	// �� "Error in input!"
14	end.

��

������ . ��������� � ���������