programação pascal

Program P1; var i,atc,gtc,dtc,ftcinteger; cv,tc,i2,vv,soma,soma2,maiorreal;
Begin
clrscr; atc=0; gtc=0; dtc=0; ftc=0; soma=0; soma2=0; i2=0; for i=1 to 5 do begin write('conservação do veículo 1-zero, 2-usado '); readln(cv); write('tipo de combustivel 1-álcool, 2-gasolina, 3-diesel, 4-flex '); readln(tc); write('valor do veículo'); readln(vv); soma=soma+vv; if tc=1 then atc=atc+1 else if tc=2 then gtc=gtc+1 else if tc=3 then dtc=dtc+1 else if tc=4 then ftc=ftc+1; if cv=2 then begin i2=i2+1; soma2=soma2+vv; end; if i=1 then maior=vv else if vvmaior then maior=vv; end; if (atcgtc)and(atcdtc)and(atcftc) then writeln('o tipo de combustível mais escolhido é álcool.'); if (gtcatc)and(gtcdtc)and(gtcftc) then writeln('o tipo de combustível mais escolhido é gasolina.'); if (dtcftc)and(dtcatc)and(dtcgtc) then writeln('o tipo de combustível mais escolhido é diesel.'); if (ftcdtc)and(ftcgtc)and(ftcatc) then writeln('o tipo de combustível mais escolhido é flex.'); writeln('a quantidade de veículo a álcool ',atc,' gasolina ',gtc,' diesel ',dtc,' flex ',ftc); writeln('a média dos valores dos veículos é ',soma502); writeln('a média dos valores dos veículos usados é ',soma2i202); writeln('o valor do veículo mais caro é ',maior02); readkey;

End. Airton dos Santos Barbosa, Pedro Henrique Barbosa
1-
algoritmo ex1 declara i,soma:inteiro inicio soma:=0 para I:=1 até 1000 faça inicio soma:=soma+I fim escreva(soma) fim ----------------------------------------------

algoritmo ex2 declara i,soma,n:inteiro inicio escreva('somar até que numero? ') leia(N) soma:=0 para I:=1 até N faça inicio soma:=soma+I fim escreva('a soma é: ',soma) fim ----------------------------------------------

algoritmo ex3
declara