//Problema:
//A Ligue Mais Telefonia deseja calcular as contas telefônicas de seus assinantes
//através do computador. A cobrança de seus serviços é feita da seguinte maneira:
//1. Tarifa básica
//• telefone residencial (código 1): R$ 7,00
//• telefone comercial (código 2): R$ 20,00
//2. Serviço local:
//R$ 1,20 por pulso excedente (acima de 90 pulsos)
//3. Serviço despertador:
//R$ 0,50 por vez.
//Na entrada de dados teremos:
//• código do assinante;
//• tipo do telefone (comercial ou residencial);
//• número de pulsos registrados para chamadas locais e
//• número de serviços de despertador prestados.
//Faça um programa que leia os dados de um conjunto de assinantes (o código do
//assinante igual a zero encerra a entrada de dados), calcule e imprima:
//• para cada assinante, o total de sua conta;
//• valor da maior conta e o código do assinante que a pagou;
//• o valor médio arrecadado por assinante no mês.
program ligue_mais;
var cod, i : integer;
    vetor : array [1..3] of real;
    assinante : integer;
    pulso, despertador : real;
    total, aux: real;
begin
i := 0;
    while(i < 1)do
    begin
        write('Digite o codigo do assinante: ');
        readln(assinante);
        if(assinante = 0)then
            exit
        else
            i := i + 1;
    end;

    writeln('O telefone e residencial(1) ou comercial(2) ? ');
    readln(cod);

    write('Digite a quantidade de pulsos: ');
    readln(i);

    write('Digite a quantidade da utilizacao do despertador: ');
    readln(despertador);

    writeln('- Sistema de calculo da Ligue Mais Telefonia -');

    writeln('O codigo do assinante e ',assinante);

    if(cod = 1)then
        begin
            aux := 7.00 + aux;
            vetor[1] := 7.00;
        end
    else
        begin
            aux := 20.00 + aux;
            vetor[1] := 20.00;
        end;
    if(i >= 90)then
        begin
            pulso := (i * 1.20) / 90;
            vetor[2] := pulso;
        end;

    despertador := despertador * 00.50;
    vetor[3] := despertador;

        if(vetor[1] >= vetor[2]) and (vetor[3] >= vetor[3])then
            writeln('O maior valor da conta e a tarifa basica de R$ ',vetor[1]:2:2)
        else
            if(vetor[2] >= vetor[1]) and (vetor[3] >= vetor[3])then
                writeln('O maior valor da conta e os pulsos de R$ ',vetor[2]:2:2)
            else
                writeln('O maior valor da conta e o despertador de R$ ',vetor[3]:2:2);

    total := pulso + despertador + aux;

    writeln('O valor total da sua conta foi R$ ',total:2:2);
readln();
end.