Pascal: Készítsen programot amely a kepernyo minden masodik sorat teleirja "*"-al?

Ez olyan egyszerű hogy könnyebb megírni mint elmagyarázni. Inkább a könyebbik utat választottam.

var

i,j:integer;

begin

for j:=1 to 24 do

begin

if odd(j) then

for i:=1 to 79 do

write('*');

writeln();

end;

end.

És a sorok 80 karakteresek, viszont utána sort tör a Pascal, tehát helyesen:

Program csillag;

Uses crt;

Var

i, j: Byte;

Begin

ClrScr;

For i:=1 To 24 Do

If Odd(i) Then

WriteLn

Else

For j:=1 To 80 Do

Write('*');

ReadLn;

End.