Potrebujem pomoct v pascale 3 super lahke programy

lofofo

1.sucet, sucin, aritmeticky priemer 10 naahodnych cisel
2. vypisat 10 nahodných pismen abecedy
3.vypisat retazec odzadu, za kazdym pismenkom dat *

tuto machri určite zmaknete za 2,2817 sekundy

morfeusko

A nabuduce posli aspon nejaky svoj pokus

...skor ti niekto pomoze
Ale dnes mam dobry den takze tu to mas(mensie rozptylenie pred zajtrajsou skuskou...)

1:

Kód: Vybrať všetko

program cisla;
uses crt;
var p:array[1..10] of integer;
    i,sucet,sucin:integer;
    priemer:real;
begin
 clrscr;
 sucin:=1;
 sucet:=0;
 for i:=1 to 10 do
  p[i]:=random(10);
 for i:=1 to 10 do
 begin
  sucet:=sucet+p[i];
  sucin:=sucin*p[i];
 end;
 for i:=1 to 10 do
  write(p[i],' ');
 priemer:=(sucet/10);
 writeln(sucin);
 writeln(sucet);
 writeln(priemer);
end.

2:

Kód: Vybrať všetko

program pismena;
uses crt;
var c:char;
    x,i:integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  x:=random(26)+97;
  writeln(chr(x));
 end;
end.

3:

Kód: Vybrať všetko

program retazec;
uses crt;
var s:string;
    n,i:integer;
begin
  clrscr;
  readln(s);
  n:=length(s);
  for i:=n downto 1 do
   write(s[i],'*');
end.