Ohne Titel

Inicail

escreval (" Selecione o Serviço ")

escreval (" ")

escreval (" 1 - Motor " )

escreval (" 2 - Suspenção ")

escreval (" 3 - Freios ")

escreval (" ")

leia ( op )

ate ((op <> 1) ou (op <> 2) ou (op <> 3))

escolha op

caso 1

(serv <- "Motor")

(v <- 100,00)

caso 2

(serv <- "Suspenção")

(v <- 200,00)

caso 3

(serv <- "Freios")

(v <- 500,00)

outrocaso

(serv <- "Selecione um Serviço Valido")

fimescolha

escreval (" Selecione o Serviço ")

escreval (" ")

escreval (" 1 - Motor " )

escreval (" 2 - Suspenção ")

escreval (" 3 - Freios ")

escreval (" ")

(serv <- "Motor")

(v <- 100,00)

(serv <- "Suspenção")

(v <- 200,00)

op

(serv <- "Freios")

(v <- 500,00)

Não

Não

(serv <- "Selecione um Serviço Valido")

Serv, V

Fim

Sim

Sim

Sim