Programming

Program Clube Minas Gerais; //Variaveis Var xxnomevrv:string; xxidade:real; xxtempodetreinamento:real; xxalunomatricula:real; xxvalormatricula:real; xxvalormes:real; xxvalor5x:real; xxvalor10x:real; xxcategoria:string; xxresp:string; Begin repeat clrscr; writeln('..........................'); writeln('DESMPENHO NO TREINO'); writeln('nomealuno'); writeln('..........................'); write('NOME ATLETA'); readln(xxnomevrv); write('idade: '); write(xxidade); write('TEMPO DE TREINAMENTO'); readln(xxtempodetreinamento); write('matricula: '); readln(xxvalormatricula); writeln('.........................'); readln; //INICIO DA LOGICA// if((xxidade>=5) and (xxidade<=11)) then xxcategoria:= 'infantil' ; if((xxidade>=12) and (xxidade<=17)) then xxcategoria:= 'juvenil'; if(xxidade>=18) then xxcategoria:= 'juvenil'; if(xxidade<5) then xxcategoria:= 'Nao Admitido'; if(categoria:= 'infantil') then xxvalormes:=0.5*xxvalormatricula; if(xxcategiria:= 'juvenil') then xxvalormes:=0.75*xxvalormatricula; if(categoria:= 'Adulto') then xxvalormes:=xxvalormatricula; xxvalor5x:=xxvalormes*5*0.95; xxvalor10x:=xxvalormes*10*0.9; //DADOS// clrscr; writeln('...............................'); Writeln(' AVALIAÇÃO DO TREINO'); writeln('................................'); writeln('categoria: ', xxcategoria); writeln('mensalidade: ' ,xxvalormes); writeln('valor 5 meses: ' ,xxvalor5x); writeln('valor 10 meses: ' ,xxvalor10x); writeln('.................................'); writeln(' PRETENDE FINALIZAR PROGRAMA?'); readln(xxresp); until(xxresp:= 'S'); writeln('ENCERRAMENTO DO PROGRAMA'); End.