Turbo pascal

20 program salario; uses wincrt;

var sf,st,vv: real;

begin writeln('informe seu salario fixo'); readln(sf); writeln('informe o valor da suas vendas'); readln(vv); if vv1500 then begin st:=(3/100*1500)+(vv-1500)*(5/100)+sf;
WRITEln('seu salaraio é : ',st:3:2,' R$');

end; end. 21
Program Saldo; uses wincrt;

var nc,s,d,c,st:real; begin writeln('escreva o numero da sua conta'); readln(nc); writeln('escreva o saldo'); readln(s); writeln('escreva o debito efetuado'); readln(d); writeln('escreva o credito efetuado'); readln(c); st:=s-d+c;

if st>=0 then begin writeln('Seu saldo é positivo , Saldo: R$',st:3:2); end; if st=qm then begin writeln('Nao efetuar compra'); end else writeln('Nao efetuar compra'); end. 23 program valor; uses wincrt;

var
N: real;

begin writeln('informe um valor qualquer'); readln(n); if n=0 then begin Writeln('o valor é zero'); end; if n>0 then begin writeln('o valor é positivo'); end; if nn2) and (n2>n3) then begin writeln('o maior numero é ',n1:3:2); end; if (n1n2) then begin writeln('o maior valor é: ',n3:3:2); end; if (n1n3) then begin writeln('o maior numero é: ',n2:3:2); end; if (n1=n2) or (n2=n3) then begin writeln('nao pode inserir numeros iguais'); end; end.
Questão 25:
Program Soma2;
Uses Wincrt;
Var
A,B,C,result: Integer;

Begin
Writeln('Informe um valor qualquer');
Readln(A);
Writeln('Informe um segundo valor');
Readln(B);
Writeln('Informe também um terceiro valor');
Readln(C);

If (C>A) and (B>A) then
Begin
result:= B+C;
Writeln('A soma dos dois valores maiores é: ' ,result);
End;
If (B>C) and (A>C) then
Begin
result:= A+B;
Writeln('A soma dos dois valores maiores é: ' ,result);
End;
If (A>B) and (C>B) then
Begin
result:= A+C;
Writeln('A soma dos dois valores maiores é: ' ,result);
End;

End.

25 program soma_maior; uses wincrt;

var n1,n2,n3,soma: real;

begin writeln('informe o