fork(8) download
copy 
  1. program Corredor;
  2. uses Crt,dos;
  3. var
  4.    peso_inicial: real;
  5.    long_circuito: integer;
  6.    seg: integer;
  7.    peso_total: real;
  8.    peso_perdido: real ;
  9.  
  10. begin
  11. clrscr;
  12. write('Ingrese peso del corredor: ');
  13. readln(peso_inicial);
  14. write('Ingrese longitud del circuito: ');
  15. readln(long_circuito);
  16. write('Ingrese tiempo en seg: ');
  17. readln(seg);
  18.  
  19. if ( long_circuito > 50 ) then
  20.  
  21. begin
  22.  
  23.    peso_perdido:= ((long_circuito * 100) / 50) ;
  24.    write('El corredor pierde', peso_perdido) ;
  25.    peso_total:= (peso_inicial - (peso_perdido / 1000)) ;
  26.    write('Su peso total es: ', peso_total ,'KG' );
  27.  
  28.    if ( peso_perdido > 300 ) and ( peso_perdido < 450 ) then
  29.  
  30.    begin
  31.         write('Necesita Vitamina A');
  32.    else
  33.  
  34.    begin
  35.  
  36.        if peso_perdido > 450 then
  37.  
  38.        begin
  39.              write('Necesita Vitamina A y C');
  40.        else
  41.  
  42.        begin
  43.              write('No necesita Nada');
  44.    end;
  45.  
  46.    end
  47.    end;
  48.    end
  49.  
  50.    if (seg > 15) and (seg < 25) then
  51.  
  52.    begin
  53.                     write('Felicidades paso el record panamericano');
  54.  
  55.    else
  56.  
  57.    begin
  58.           if (seg > 25) then
  59.  
  60.           begin
  61.                     write('Felicidades paso el record Olimpico');
  62.  
  63.                  else
  64.  
  65.                  begin
  66.                     write('No Hizo ningun Record');
  67.  
  68.           end;
  69.     end
  70.     end;
  71.     end
  72.     else
  73.  
  74.        begin
  75.                     write('Este Programa no sirve para su caso') ;
  76.  
  77.     end;
  78.  
  79.      Repeat until Keypressed}
  80.  
  81.     end
  82. end.
  83.  
  84.  
  85.  
  86.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(32,4) Fatal: Syntax error, ";" expected but "ELSE" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
stdout
copy 
Standard output is empty
https://ideone.com/SYSuY
language:
Pascal (fpc 3.0.4)
created:
13 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!