Turbo Pascal a DEV-C++

[kurkix]

EL PRIMER PROGRAMA

program politikariak;
uses wincrt;
type mat=array[1..5,1..7] of integer;
bek=array[1..5] of integer;
var notak:mat;
batazbes:bek;
i,j,a,b:integer;
begin
writeln('gogoan izan!!!');
writeln('1.go politikaria:Juan Jose Ibarretxe , lehendakaria(EAJ-PNV)');
writeln('2. politikaria:Arnaldo Otegi , Batasunako bozeramailea(batasuna)');
writeln('3. politikaria: Jose Luis Rodriguez Zapatero , espainiako presidentea(PSOE)');
writeln('4. politikaria: Miguel Sanz , Nafarroako gobernuko presidentea(UPN)');
writeln('5. politikaria: Patxi Zabaleta , Aralarreko bozeramailea(Aralar)');
writeln;
writeln(' jarraitzeko pultsa enter');
readln;
for i:=1 to 7 do
for j:=1 to 5 do
begin
writeln('idatzi gaur,',i,'.egunean, ',j,'.politikariak esan duen gezur kantitatea');
readln(notak[i,j]);
end;
for j:=1 to 5 do
for i:=1 to 7 do
batazbes[j]:=batazbes[j]+notak[i,j];
for j:=1 to 5 do
batazbes[j]:=batazbes[j] div 5;
a:=batazbes[1];
for j:=1 to 5 do
begin
if batazbes[j]>=a
then a:=batazbes[j];
if batazbes[j]>=a
then b:=j;
end;
writeln('gezurtiena, ',b,'. politikaria da');
j:=1;
while j<6 do
begin
writeln(j,'. politikariak:');
case batazbes[j] of
0: writeln('hori ezinezkoa da, zeu ari zara gezurretan!!!!!!!');
1..5: writeln('nahiko ongi, beti horrela izango balitz...');
6..10: writeln('batzuk ez dira sekula aldatzen!!!');
11..15: writeln('honek uste du botanteak tontoak direla!!!!!!!');
16..32000:writeln('ahoa gezurrak esateko bakarrik irekitzen du');
end;
j:=j+1
end;
end.