Pascal :

var i,s:longint;
begin
    for i:=1 to 80 do
    begin
        for s:=1 to 20 do
        begin
            write('*');
        end;
        writeln;
    end;
end.