Deixo aqui o codigo de uma calculadora em pascal com as operações padrao (+,-,/ e x) feito por mim. Espero que ajude alguem que se esta a iniciar em programaçao..
program calculadora;
uses crt;
var
v1,v2:Integer;
Operacao:char;
total:real;
begin
clrscr;
writeln(\\'Qual o primeiro valor?\\');
readln(v1);
writeln(\\'Qual o segundo valor?\\');
readln(v2);
writeln(\\'Qual ‚ a operação (+,-,/ ou x)\\');
readln(Operacao);
case Operacao of
\\'+\\':total:=v1+v2;
\\'-\\':total:=v1-v2;
\\'*\\':total:=v1*v2;
\\'/\\':total:=v1/v2;
else write(\\'A operação escolhida nao ‚ valida\\')
end;
write(\\'O valor total ‚ \\',total:2:2);
readln;
end.