1
2
3
4
5
6
7
8
9
program Condicional;
 
   var X : Integer;
        Y: string;
 
   begin
        writeln('DIGITE SEU NOME: ');
        readln(Y);
        writeln('DIGITE SUA IDADE:');
 ...

1
2
3
4
5
6
7
8
9
program Condicional;
 
   var X : Integer;
        Y: STRING;
 
   begin
        WRITELN('DIGITE SEU NOME: ');
        READLN(Y);
        WRITELN('DIGITE SUA IDADE:');
 ...

1
2
3
4
5
6
7
8
9
program Condicional;
 
   var X : Integer;
        Y: STRING;
 
   begin
        WRITELN('DIGITE SEU NOME: ');
        READLN(Y);
        WRITELN('DIGITE SUA IDADE:');
 ...

1
2
3
4
5
6
7
8
9
program Condicional;
 
   var X : Integer;
        Y: STRING;
 
   begin
        WRITELN('DIGITE SEU NOME: ');
        READLN(Y);
        WRITELN('DIGITE SUA IDADE:);
 ...

1
2
3
4
5
6
7
8
program test;
var x: integer;
begin
  repeat
    readln(x);
    if x<>42 then writeln(x);
  until x=42
end.

1
2
3
4
5
6
7
8
9
program Condicional;
 
   var X, Y : Integer;
 
   begin
     Writeln ('Entre com dois Números:'); { Mostra na tela a mensagem}
     Readln (X, Y); { Lê os dois números }
     If (X = Y) Then {Condição - SE X for igual a Y}
     Begin  {INICIO - Repare abaixo que existe duas instruções, dois comandos Writeln, por isso estão entre BEGIN e END}
 ...

1
2
3
4
5
6
7
8
9
program Condicional;
uses Crt;
 
   var X, Y : Integer;
 
   begin
     Writeln ('Entre com dois Números:'); { Mostra na tela a mensagem}
     Readln (X, Y); { Lê os dois números }
     If (X = Y) Then {Condição - SE X for igual a Y}
 ...

1
2
3
4
5
6
7
8
9
uses Crt;
 
   var X, Y : Integer;
 
   begin
     Writeln ('Entre com dois Números:'); { Mostra na tela a mensagem}
     Readln (X, Y); { Lê os dois números }
     If (X = Y) Then {Condição - SE X for igual a Y}
     Begin  {INICIO - Repare abaixo que existe duas instruções, dois comandos Writeln, por isso estão entre BEGIN e END}
 ...

1
2
3
4
5
6
7
`program_povrsina_pravougaonika';
var_s,v,P:real;
begin
read(s,v);
p:=s*v;
write(p);
end.

1
2
3
4
5
6
7
`program_povrsina_pravougaonika';
var_s,v,P:real;
begin
read(s,v);
p:=s*v;
write(p);
end.

1
2
3
4
5
6
7
`program_povrsina_pravougaonika';
var_s,v,P:real;
begin
read(s,v);
p:=s*v;
write(p);
end.

1
2
3
4
5
6
7
`program_povrsina_pravougaonika';
var_s,v,P:real;
begin
read(s,v);
p:=s*v;
write(p);
end.

1
2
3
4
5
6
7
`program_povrsina_pravougaonika';
var_s,v,P:real;
begin
read(s,v);
p:=s*v;
write(p);
end.

1
2
3
4
5
6
7
`program_povrsina_pravougaonika´;
var_s,v,P:real;
begin
read(s,v);
p:=s*v;
write(p);
end.

1
2
3
4
5
6
7
´program_povrsina_pravougaonika´;
var_s,v,P:real;
begin
read(s,v);
p:=s*v;
write(p);
end.

1
2
3
4
5
6
7
program_povrsina_pravougaonika;
var_s,v,P:real;
begin
read(s,v);
p:=s*v;
write(p);
end.

1
2
3
begin
write(1.123456:4:6);
end.

1
2
3
begin
write(1.123456:8:1);
end.

1
2
3
begin
write(1.123456:4:1);
end.

1
2
3
begin
write(123.123456:4:2);
end.

1
2
3
begin
write(123.123456:4:5);
end.

1
2
3
begin
write(123456.123456:4:5);
end.

1
2
3
begin
write(162.1253:2:3);
end.

1
2
3
begin
write(12.123);
end.

1
2
3
begin
write('hey');
end.

1
2
3
being
write('hey');
end.

1
write('hey')

1
2
3
4
5
6
7
program z;
var x,y:real;
begin
readln(x);
y:=x*x-6*x-1;
writeln(y);
end.

1
2
3
4
5
6
7
program z;
var x,y:real;
begin
readln(x);
y:=x*x-6*x-1;
writeln(y);
end.

1
2
3
4
5
6
7
program z;
var x,y:real;
begin
readln(x);
y:=x^2-6x-1;
writeln(y);
end.