Todos os meus programas em Pascal.

Programa diz nome:

program diznome;

uses crt;



var nome,sobrenome,nomecompleto:string;



begin

clrscr;

writeln('Qual o seu nome:');

readln(nome);

writeln('Qual o seu sobrenome:');

readln(sobrenome);

nomecompleto:=(nome+' '+sobrenome);

writeln('Seu nome completo é:',nomecompleto);

readkey;

end.

Matrix numeros:

program numeros;



uses crt;

var a:integer;



begin

clrscr;

Textcolor(green);

a:=1;



repeat



for a:=1 to 100 do



write(a);



until a>=1000;



readkey;

end.

Calculadora de decimo terceiro salário:

program calculadoraDeDecimoTerceiroSalario;

uses crt;



var salario,meses,resultado:real;



begin

clrscr;

writeln('Qual o seu salário:');

readln(salario);

writeln('Qual a quantidade de meses em que trabalhou:');

readln(meses);

resultado:=(salario*meses/12);

writeln('Seu decimo terceiro salário é:',resultado:0:0);

readkey;

end.

Calculadora básica:

program calculadorabasica;

uses crt;

var

  n1,n2,resultado:real;

  operador:char;



begin

  writeln('Digite o primeiro número:');

  readln(n1);

  writeln('Digite o segundo número:');

  readln(n2);

  writeln('Digite o operador:');

  readln(operador);



  if operador='+' then

    resultado:=(n1+n2)

  else

    if operador='-' then

      resultado:=(n1-n2)

    else

      if operador='/' then

        resultado:=(n1/n2)

      else

        if operador='*' then

          resultado:=(n1*n2);

  writeln('O resultado é:',resultado:0:0);



  readkey;

end.