program ber_p; uses wincrt;
var
	a, b, c, x, y, z, p: integer;
begin
	write('Geef waarde van a: ');
	read(a);
	write('Geef waarde van b: ');
	read(b);
	write('Geef waarde van c: ');
	read(c);
	write('Geef waarde van x: ');
	read(x);
	write('Geef waarde van y: ');
	read(y);
	write('Geef waarde van z: ');
	read(z);
	p:=a*x+b*y+c*z;
	write('De waarde van p is: ', p, '.')
end.