fork download 
  1. program EXEMPLO_WHILE_DO1;
  2.  
  3. Var A,B,R,I: integer;
  4.  
  5. begin
  6. 	while (I <=5) do
  7. begin
  8.   write('Escreva o valor de A: ');
  9.   read(a);
  10.   write('Escreva o valor de B: ');
  11.   read(b);
  12.  writeln;
  13.  R:=A+B;
  14.   writeln(''O resultado corresponde a: ',R);
  15.   writeln;
  16.   I:=I+1;
  17. end;
  18. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.pas:14: unterminated string or character constant
prog.pas:14: possible real start of unterminated constant
stdout 
Standard output is empty
https://ideone.com/NRAsz
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!