1test(err).txt

min_Pascal语言的语法

	const a=10;
	var b,c;
	procedure p;
		var d;
		begin
			d:=20;
			c:=d/a;
			c:=c+b;
			write(b);
		end;
	begin
		read (b);
		do
			begin
				call p;
				write(4*c);
				read(b)
			end
		while b<>0 	
	end.