pascal

Program exercio;
 var  n1, n2, n3, resultado: real;
 begin
 write('entre com o num 1' );
 read(n1);
 write('entre com o num 2');
 read(n2);
 write('entre com o num 3' );
 read(n3);
 resutado := n1_N2_n3;
 writeln('a substracao de ,' n1,'_' n2,'_' n3,'_;resultado' );
 writeln;
 writeln(' final de execucao...');
 readln;
 end.