programa pascal

Program atividade1 ;
Uses CRT; var sal,salx,sal2:real; vale,sexo,nome,depart, fun,sangue,vale1,vale2,sexo1,sexo2:string; vale3,salario_extra: char; cod,ndep: integer; Begin sexo1:='feminino'; sexo2:='masculino'; vale1:='recebe'; vale2:='não recebe';

writeln('Qual o seu CODIGO ?'); readln(cod); Writeln('Qual o seu NOME ?'); readln(nome); writeln('Qual o seu Sexo [F/M]'); readln(sexo); if sexo =('f') then begin sexo:=sexo1; end; if sexo=('m') then begin sexo:=sexo2; end; writeln('Qual o seu Tipo Sanguinio.'); readln(sangue); clrscr; writeln('Você trabalha em qual departaemnto ?'); readln(depart); writeln('Qual o seu NUMERO no departamento ?'); readln(ndep); writeln('Qual a sua função que desempenha ?'); readln(fun); clrscr; writeln('Quanto você guanha de salario ?'); readln(sal); writeln('Você tem Salario extra [S/N]?'); readln(salario_extra); if salario_extra = ('s') then begin writeln('Quanto ganha de salario extra ?'); read(salx); sal2:=sal+salx; end; writeln('Você tem direito a VALE TRANSPORTE ? [S/N]'); read(vale3); if vale3 =('s') then begin vale:=vale1; end; if vale3 =('n') then begin vale:=vale2; end; clrscr;

writeln('º O funcionario ',nome,' de CODIGO ',cod,' do sexo ',sexo,'.'); writeln('ºº Trabalha no departamento de ',depart,'com CODIGO ',ndep,' fazendo ',fun,' .'); writeln('ººº Com salario de R$',sal:2:2,' do tipo sanguinio ',sangue,'.'); writeln('ºººº E ',vale,' vale transporte.'); if (salario_extra = 's') then begin writeln ('ººººº Com salario extra recebe ao todo R$',sal2:2:2);