Gestão e Programação de Sistemas Informáticos

Esta semana temos o seguinte:
1: Somar 2 numeros
___PASCAL_________________________________________
program soma;
uses crt;
var
 a:integer;

 b:integer;

r:integer;

begin
clrscr;

 writeln('Introduza o 1º numero');
read(a);
writeln('Introduza o 2º numero');

read(b);

r:=a+b;

writeln('O resultado da soma é', r);
end.
__________________________________________________
Se tiverem alguma duvida é so comentar
Tutorials com Vitor Amaral
VA.WORKS "Em Todos os Trabalhos Realizados"