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-----------------------------------------------

A=(2,1) B=(-1,-2) C=(3,-2) D=(-3,1) E=(0,4) F=(0,-1) G=(4,0) H=(-2,0)

PT: Marcação de pontos no referencial cartesiano
EN: Plot points in the cartesian reference
FR: Tracer de points dans le repere cartesian
A=(2,1)  B=(-1,-2)   C=(3,-2)  D=(-3,1)  E=(0,4)   F=(0,-1)   G=(4,0)   H=(-2,0)

PT:  sistema de duas equações a duas incógnitas.

EN: two equations with two unknowns system.
FR: deux équations à deux inconnues système.

PT:  Os funcionarios de uma empresa são 12. A quantidade de mulheres que trabalha na empresa é o dobro dos homens. Quantas mulheres e quantos homens trabalham na empresa?
vamos fazer x=quantidade de homens e y =quantidade de mulheres, então vem:

|  x+y=12       | x+2x=12         | 3x=12       | x=12/3     |  x=4    | ---          |x=4
|  2x=y           |  ---------------     | ----------       | ----------     | -------    | y=2*4   |y=8

Temos então a trabalhar na empresa 4 homens e 8 mulheres.
_______________________________________________________________________________

EN: The employees of a company are 12. The number of women working in the company is twice that of men. How many women and men working in the company?
we'll do x = the number of men and y = number of women, then comes:

|  x+y=12       | x+2x=12         | 3x=12       | x=12/3     |  x=4    | ---          |x=4
|  2x=y           |  ---------------     | ----------       | ----------     | -------     | y=2*4   |y=8

In the company work 4 men and 8 women.
________________________________________________________________________________

FR:  Les employés d'une entreprise sont 12. Le nombre de femmes qui travaillent dans l'entreprise est le double de celui des hommes. combien de femmes et d'hommes travaillant dans l'entreprise?

nous ferons x = le nombre d'hommes et y = nombre de femmes, puis vient:

|  x+y=12       | x+2x=12         | 3x=12       | x=12/3     |  x=4    | ---          |x=4
|  2x=y           |  ---------------     | ----------       | ----------     | -------     | y=2*4   |y=8

la société fonctionne avec 4 hommes et 8 femmes.

PT: Substituição de uma torneira no jardim

EN: Replacing a faucet in the garden

FR: Remplacement d'un robinet dans le jardin
___________________________________________________

PT:material utilizado       EN: material needed         FR:matériau utilisé

PT:  como fazer

EN:  how to make

FR:  comment faire