Odpowiedzi

2009-12-16T15:58:37+01:00
Program Choinka;
var
I, N :Byte;
Procedure Gwiazdki (N: BYte);
var
I :Byte;
Begin
for I :=1 to N do
Write ('*");
Writeln:
end;
begin
Write ('podaj wielkosc choinki'); Readln (N);
if (N<1) then
Writeln('chonka niebedzie widoczna.')
else
if (N<24) then
Writeln ('choinka nie zmiesci sie na ekranie.')
else
for I := 1to N do
Gwiazdki (I);
Readln;
end.





Jak by cos zle pisz na pw poprawie