Aha... ali ti moras u programu imat neku od onih naredbi... onda to mozemo nadopunit s IFom i REPEATom...
program pravokutnik;
var a,b : integer;
begin
repeat
write ('Unesi stranicu a: ');
readln (a);
if a<=0 then writeln ('Ovo je neispravna duljina stranice, pokusaj ponovo...');
until a>0;
repeat
write ('Unesi stranicu b: ');
readln (b);
if b<=0 then writeln ('Ovo je neispravna duljina stranice, pokusaj ponovo...');
until b>0;
write ('Povrsina pravokutnika je: ', a*b);
readln;
end.
A bilo bi dobro da se i ti malo potrudis... jedan jednostavni program koji racuna povrsinu necega bi trebao znat sam napisat...