multiplos pascal

program multiplos;

uses crt;
var i ,num1,num2 : byte;

BEGIN
    writeln('this program list the multiples of a two numbers until 200');
    writeln('programe pour doner les multiples de deux numeros jusqua 200');
    writeln('programa para calcular os multiplos de dois numeros até 200');
    writeln;
    writeln(' first number? premier numero? primeiro numero?');
    readln(num1);
    writeln(' another number? autre numero? outro numero?');
    readln(num2);
    for i:=1 to 200 do
    if (i mod num1=0) and (i mod num2=0) then write(i,' ');
END.

programa em pascal

program exemplo;
uses crt;
var quantidade:real;
   preco:real;
begin
  clrscr;
  writeln;
  writeln('Programa para calcular o custo total de uma certa quantidade');
  writeln('de mercadoria a um determinado preço');
  writeln;
  repeat
     writeln;
     writeln('quantas unidades ? "introduza 0 para saír"'); 
     readln(quantidade);
     if(quantidade>0) then
     begin
       writeln('qual o preço de cada unidade?');
       readln(preco);
       if(preco>0) then writeln(' tem a pagar ', quantidade*preco);
     end;
  until quantidade=0;
end.

------------------------ output do programa-----------------------------------------------

I will today publish a very simple example of a program in Pascal. The programs begin with the word "program" and a suggestive name, then have a space for declarations and for functions and procedures. Have after the word "begin" and the word "end." . It is in the space between "begin" and "end." we write the program.

Je publie aujourd'hui un exemple très simple d'un programme en Pascal. Les programmes commence par le terme «program» et un nom évocateur, puis ont un espace pour les déclarations et pour les fonctions et procédures. Avoir, après le mot «begin» et le mot «end.».  Il est dans l'espace entre «begin» et «end.» qui nous écrivons le programme.

Vou publicar hoje um exemplo muito simples de um programa em pascal. Os programas começam com a palavra "program " e um nome sugestivo, tem depois um espaço para declarações e para funções e procedimentos. Tem depois a palavra "begin" e a palavra "end." . É no espaço compreendido entre "begin" e "end." que escrevemos o programa.

        ________________________________________________

        ------ structure of a program in Pascal-----------
        -------structure d'un programme en Pascal----------
        -------estrutura de um programa em pascal---------




program firstprogram;

begin

end. 

______________________________________________________________________________

    ---------simple program with the writeln statement-------
    ---------programme simple avec la déclaration de writeln-----
    ---------programa simples com a instrução writeln----------------
 


program firstexample;


begin
   writeln('hello - Bonjour - ola');
end.