program log_f; uses wincrt;
var
	i1, i2, i3: integer;
	toe_i1, toe_i2, toe_i3, uit: boolean;
begin
	write('Geef de toestand van de ingang i1: ');
	read(i1);
	toe_i1:=i1=1;
	write('Geef de toestand van de ingang i2: ');
	read(i2);
	toe_i2:=i2=1;
	write('Geef de toestand van de ingang i3: ');
	read(i3);
	toe_i3:=i3=1;
	uit:=toe_i1 and toe_i2 or toe_i3;
	write('Het resultaat van de logische functie is: ', uit, '.')
end.