Pascal zadania

[malborkmuzeum]

Witam!
Prosiłbym o podpowiedzi co do zadań , chciałbym ,żebyście podpowiedzieli mi co do ogólnych wzorów. Jeśli ktoś zrobi całe zadanie ... to dziękuje najmocniej z góry jak potrafię oto zadania:
Zadanie 1
Dane są dwie liczby całkowite. Napisz program, który obliczy ich sumę i iloczyn.
Zadanie 2.
Dana jest nieujemna liczba rzeczywista h. Napisz program, który wyznaczy pole powierzchni i obwód trójkąta równobocznego o wysokości h.
Zadanie 3.
W pewne koło wpisano kwadrat, w który następnie ponownie wpisano koło. Otrzymano koło o polu powierzchni S. Jaką długość ma obwód większego z kół?
Zadanie 4.
Dany jest ośmiokąt foremny o boku a. Napisz program, który obliczy pole P tego ośmiokąta.
Zadanie 5.
Przekątna prostokąta ma długość d, zaś stosunek długości jego sąsiednich boków wynosi 4:3. Napisz program obliczający pole powierzchni i obwód tego prostokąta.
Zadanie 6.
Dany jest odcinek o końcach w punktach A i B oraz punkt K. Napisz program, który obliczy odległość punktu K od środka odcinka AB.
Zadanie 7.
Dane są współrzędne trzech punktów na płaszczyżnie A, B i C. Oblicz długość odcinka PQ, gdzie P jest środkiem odcinka AB, zaś Q środkiem odcinka AC.
Zadanie 8.
Punkty A i B są wierzchołkami trójkąta ABC, zaś punkt P środkiem boku AC. Oblicz obwód i pole powierzchni tego trójkąta.
Zadanie 9.
Bankomat wypłacając gotówkę operuje banknotami o nominałach 100, 50, 20 i 10 oraz monetami 5, 2 i 1 zł. Wyznacz namniejszą możliwą ilość banknotów i monet potrzebną do wypłacenia określonej kwoty gotówki.
Zadanie 10.
Jeśli a i b są liczbami nieujemnymi, to mniejszą z nich można otrzymać korzystając z wzorua
(a+b-|a-b| )2

Dziękuje.

[Fibik]

7.

type
Pt = record
x, y : real;
end;

function LenPQ(var a,b,c : Pt) : real;
begin
{ P = (A+B)/2; Q = (A+C)/2; }
{ PQ = Q-P = (A+C)/2 - (A+B)/2 = (C-B)/2; }

LenPQ := 0.5*Sqrt(Sqr(c.x-b.x) + Sqr(c.y-b.y));
end;

[voxo]

Zadanie 1 !

program suma; uses CRT;
var a,b,i,s:integer;

begin
clrscr;
writeln('Podaj pierwsza liczbe');
readln(a);
writeln('Podaj druga liczbe');
readln(b);
s:=a+b;
i:=a*b;
writeln;
writeln('Suma liczb ',a,'+',b,'=',s);
writeln;
writeln('Iloczyn liczb ',a,'*',b,'=',i);
readln
end.

Zadanie 2 !

program polerownobocznego; uses CRT;
var p,h: real;
a,o: integer;
begin
clrscr;
writeln('Podaj dlugosc boku trojkata');
readln(a);
h:=sqrt(3)/2*a;
o:=3*a;
p:=a*h/2;
writeln;
writeln('WYSOKOSC wynosi...............',h:4:3);
writeln('OBWOD wynosi..................',o);
writeln('POLE danego trojkata wynosi...',p:4:3);
readln
end.

Mam nadzieje ze pomogłem jeszcze zrobie dwa