Program Pzim ;
Var n1,n2:integer;
function soma(a:integer;b:integer):integer;
Begin
soma:= a+b;
End;
function subtracao(a:integer;b:integer):integer;
Begin
subtracao:= a-b;
End;
Begin
write ('Digite o valor de um número inteiro..:');
read(n1);
write ('Outro valor de um número inteiro.....:');
read(n2);
writeln('A soma dos valores é ',soma(n1,n2));
write('A subtração dos valores é ',subtracao(n1,n2));
End.
Nenhum comentário:
Postar um comentário