Rada – Pascal – Fórum – Programujte.com

Chci se zeptat, toto je program napsaný v Pascalu?

program CISLA14(VSTUP,VYSTUP);
const N=20; {počet čísel}
type CIS=array[1..N] of real;
var  I,J:integer;
   CISLA:CIS;
   VSTUP,VYSTUP:text;
begin
assign(VSTUP,'cisla.dat');
assign(VYSTUP,'cisla.vys');
reset(VSTUP);
rewrite(VYSTUP);
writeln(VYSTUP,' Zadaných 20 čísel:');
writeln(VYSTUP);
for I:=1 to N do begin
  read(VSTUP,CISLA[I]);
  write(VYSTUP,CISLA[I]:8:2);
  if (I mod 5)=0 then writeln(VYSTUP);
end;
writeln(VYSTUP);
{v opačném pořadí}
writeln(VYSTUP,' Zadaných 20 čísel v opačném pořadí:');
writeln(VYSTUP);
for I:=N downto 1 do begin
  write(VYSTUP,CISLA[I]:8:2);
  if ((I-1) mod 5)=0 then writeln(VYSTUP);
end;
writeln(VYSTUP);
{všechna čísla menší než číslo první}
writeln(VYSTUP,' Všechna čísla menší než číslo první t.j.:',CISLA[1]:8:2);
writeln(VYSTUP);
J:=0;
for I:=2 to N do
  if CISLA[I]<CISLA[1] then begin
   J:=J+1;
   write(VYSTUP,CISLA[I]:8:2);
   if (J mod 5)=0 then writeln(VYSTUP);
  end;
close(VSTUP);
close(VYSTUP);
end.

#1 JuReeeC
Ano.