PASCAL - Fatal: Erro de sintaxe: esperado mas cartao identificador encontrado? Um erro.?

Programa TypeofCreditCard; B cartão var nome, G cartão, cartão P: String; Soma, Rep, Exp, TSD, YS, Cred, SSN, GS, NS: Inteiro; PofIncome: Real; Começar Writeln ('Enter os candidatos que se candidataram para um tipo de cartão de crédito'); ReadLn (cartão, nome, soma, Rep, Cred, Exp, TSD, cartão B, G cartão, cartão de P, SSN, GS, NS, Rep, PofIncome); Enquanto (nome <>'Stop') fazer Begin NS: = GS-TSD; Soma: = Exp + Rep; PofIncome: = NS 0.45; Começam a se (GS > 4000) e (cartão = 'Cartão de Bronze'); YS: = GS 12; Cred: = YS 0,25; B cartão: = BCard + 1; AppliName [cartão Bronze] = nome SSNum [cartão Bronze] = SSN GSal [cartão Bronze] = GS TSALD [cartão Bronze] = TSD para eu: = 1 para fazer cartão Bronze Writeln (AppliName [i]), (SSNUM [i], (G Sal [i]), (T Sal D [i]); Else If (GS > = 7500) e (CC 'Cartão'); YS =: GS 12; Cred =: YS 0,3; Cartão G: = G cartão + 1; AppliName [Gold Card] = nome SSNum Gold Card] = SSN G Sal [Gold Card] = GS TSalD [Gold Card] = TSD para i: = 1 para fazer cartão ouro Writeln (AppliName[i]),SSNum[i]),(GSal[i]),(TSalD[i]); Else If (GS > = 10.000) e (CC = ' cartão Platinum), então; YS: = GS 12; Cred: = YS 0,4; Cartão P: = cartão P + 1; AppliName [PlatinumCard] = nome SSnum [Platinum Card] = SSN GSal [Platinum Card] = GS TSalD [Platinum Card] = TSD para i: = 1 para fazer cartão Platinum Writeln (AppliName[i]), (SSNUM[i]),(GSal[i]),(TSalD[i]); Acabar se End if End if End End enquanto; Final. Ele está me dizendo a linha 3 é onde está o erro, mas não consigo descobrir o que é que eu deveria para mudar para sair aquele um erro para executar o programa. -_ - Ajuda por favor? Obrigado. Quero respostas o mais rápido possível por favor porque preciso obter esta acabado e execução para imprimi-lo logo após. Além disso, se houver alguma coisa que parece errada para você, sugeri-lo!

Resposta

O erro de sintaxe que você está recebendo está relacionado à declaração da variável 'cartão'. Parece que você está tentando declarar várias variáveis de cartão, mas a sintaxe correta para isso seria declarar cada variável separadamente. Além disso, o modo como as variáveis estão sendo lidas e utilizadas no programa pode estar causando os erros de sintaxe.

Primeiro, vamos corrigir a declaração da variável 'cartão'. Em vez de declarar várias variáveis de uma vez, você deve declará-las separadamente. Por exemplo: var cartãoB, cartãoG, cartãoP: String;

Depois, temos o comando ReadLn que está com os parâmetros em ordem incorreta. Os parâmetros que estão sendo lidos devem ser separados por vírgulas, e o nome da variável deve vir antes da mensagem de prompt. Por exemplo: ReadLn(nome, cartão, soma, Rep, Cred, Exp, TSD, cartãoB, cartãoG, cartãoP, SSN, GS, NS, Rep, PofIncome);

Além disso, é importante verificar a maneira como as condições estão sendo escritas no programa. Parece que há alguns erros de digitação, como por exemplo "Começam a se", que devem ser corrigidos para "Comece se". Além disso, as condições dentro dos comandos 'Se' devem ser escritas em parênteses, e os operadores lógicos 'e' e 'ou' devem ser escritos em inglês como 'and' e 'or'.

Assim, após corrigir esses erros, seu programa deve ficar mais legível e capaz de rodar sem erros de sintaxe. Se você ainda estiver tendo problemas, recomendo revisar o código com atenção e talvez dividir o programa em partes menores para facilitar a identificação de erros. Boa sorte!