Programavimo uzduotis Paskaliu

Sveiki, kaip parasyti tai programa?

1. Iš klaviatūros įvedame du realius skaičius - stačiakampio ilgį ir plotį. Apskaičiuoti stačiakampio perimetrą ir plotą. Rezultatą atspausdinti į ekraną.

2.Įvesti du sveikus skaičius. Didesnįjį skaičių pakelti kvadratu. Rezultatą atspausdinti į ekraną.

3. Žinoma, kad klasėje mokosi n mokinių. Reikia parašyti programą, kuri įvestų mokinių ūgius ir parašytų pranešimą apie didžiausią mokinio ūgį.

Geras bajeris :D Rimtai tokių elementarių uždavinių nesugebi padaryti? :)

O dieve... <_<

1. Paprasta geometrija. S=a*b, P=2*a+2*b

2. Tiesiog IF

3. Ciklas for i:=1 to n do ir tada IF cikle po įvedimo

Pirma:

program staciakampis;
var ilgis, plotis, plotas, perimetras: integer;
begin
 Write('staciakampio ilgis: ');
 ReadLn(ilgis);
 Write('staciakampio plotis: ');
 ReadLn(plotis);
 plotas := ilgis * plotis;
 perimetras := ilgis * 2 + plotis * 2;
 WriteLn('Perimetras: ', perimetras);
 WriteLn('Plotas: ', plotas);
 ReadLn;
end.

Antra:

program Programa;
var x1, x2 : integer;
begin
 Write('Pirmas skaicius: ');
 Readln(x1);
 Write('Antras skaicius: ');
 Readln(x2);
 if (x1 > x2) then
   WriteLn('Pakeltas laipniu pirmas: ',sqr(x1))
 else
   WriteLn('Pakeltas laipniu antras: ',sqr(x2));
 ReadLn();
end.

Trečia:

program Ugiai;
var n, i, ugis, max: integer;
begin
 WriteLn('Kiek klaseje mokiniu: ');
 Readln(n);
 max := 0;
 for i:=0 to n-1 do
   begin
     Write(i+1,'-ojo mokinio ugis: ');
     ReadLn(ugis);
     if (ugis > max) then
       max := ugis;
   end;
   WriteLn('Didziausias ugis: ', max);
   ReadLn();
end.