Reikia pagalbos su pascal

Petras turi p litu. Nori pirkti 3 prekes, kuriu kiekviena kaina zinoma. Parasyti programa, kuri nusakytu ar Petrui uzteks pinigu pirkiniams ir kiek pinigu liks po pirkimo arba ju truks.

Is anksto dekoju. :)

if p >= kaina1
 then suma := kaina1 - p
if else p >= kaina2
 then suma := kaina2 - p
else p >= kaina3
 then suma := kaina3 - p;

Edit biški kitaip reikia su ifais

program nesamone;
var p,a,s,d,f,m:integer;
begin
writeln('iveskite kiek petras bagotas sendien');
read(p);
writeln('iveskit 3 prekiu kainas');
read(a,s,d);
f:=a+s+d;
m:=p-f;
if (p > f) then begin writeln('petrui pakako pinigu, jam liko: ', m); end;
if (p < f) then begin writeln('petrui pritruko pinigu, iki pilnos laimes jam reikejo: ', m); end;
readln;
readln;
end.

Muhahah :D Seni geri pascal laikai :) Faina programa, gaila labai mazai galimybiu :)

dekui :)