Bleick

Mano ! Alguem me ajuda a fazer isso ? por que tipo eu sei quase nada de logica ! i e so isso mesmo...

program pzim; var nome,salario,vendas,comissao,salariofinal:real; begin writeln('--------- Sistema de Vendas ---------'); writeln('Digite o nome do vendedor'); readln (nome); writeln('Digite o salario'); readln (salario); writeln('Digite o salariofinal'); readln (vendas,comissao <- 0.15*vendas); readln (comissao <- 0.15*vendas); readln (salariofinal <- salario+comissao); clrscr; writeln ('--------- Resultado ---------'); writeln ('--> Nome:', nome); writeln ('--> Salario:', salario); writeln ('--> Salario Final (salario+comissao):', salario); End. Cara, esse trabalh

Eu n sei nem o que eu estou fazendo mais ! Não estou dando conta isso aqui ! Ta muito ruim

Program Pzim ; var nome, nome_mais_velha, nome_mais_nova: char; idade, idade_mais_velha, idade_mais_nova, i: integer; begin for i:= 1 to 2 do writeln('Informe a idade ', i, 'pessoa: '); readln(nome); writeln('Informe a idade ', i, 'ª pessoa: '); readln(idade); if (i = 2) then nome_mais_velha := nome; idade_mais_velha := idade; nome_mais_nova := nome; idade_mais_nova := idade; if (idade > idade_mais_velha) then nome_mais_velha := nome; idade_mais_velha := idade; if (idade < idade_mais_nova) then nome_mais_nova := nome; idade_mais_nova := idade; writeln('Mais velha: ', no

Program Pzim ; var nome,nome_mais_velha,nome_mais_nova:char; idade,idade_mais_mais_velha,idade_mais_nova,i:integer; Begin for i:=1 to writeln('informe a idade',i,'pessoa:'); readln(nome); writeln('informe a idade',i,'pessoa:'); readln(idade); if ( 1 ) then nome_main_velha:= nome; idade_mais_velha:= idade; if(idade>idade_mais_velha)then nome_main_velha:= nome; idade_mais_velha:= idade; writeln('main velha:',nome_mais_velha,com,idade_mais_velha,'anos'); End.

Eu estou aprendendo pascal na faculdade mas simplesmente não vai ! Eu não consigo de jeito nenhum fazer o programa funcionar ! Queria saber se alguem pode me dar uma ajuda ae !